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ABSTRACT 

AIT  INVESTIGATION  0?  DESTROYER  MIDSHIP  SECTION 
DESIGN  WITH  VARYING  LONGITUDINAL  AND  WEB  FRAME  SPACING 

w 

Robert  Oliver  Dulin,  Jr. 


The  attractive  possibility  of  minimizing  ordering, 
handling,  and  warehousing  problems  by  employing  uniform  lon- 
gitudinal scantlings  and  constant  plating  thicknesses  through- 
out the  midship  section  led  to  the  decision  to  carry  out  an 
investigation  of  such  a  design  methodology.  The  design  tech- 
nique proved  to  be  feasible,  but  less  economical  than  con- 
ventional techniques  of  midship  section  design. 

A  computer  tool  for  the  systematic  variation  of  longi- 
tudinal intervals  has  been  developed  and  is  now  ready  to  be 
applied  to  midship  section  design  with  varying  structural 
materials  and  different  plating  thicknesses  and  longitudinal 
scantlings. 


Thesis  Supervisor:   J.  Harvey  Evans 
Title:  Professor  of  Naval  Architecture 
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I.   INTRODUCTION 

"The  quest  for  least  weight,  lowest  cost,  optimal  ship 
structures  has  long  been  hampered  by  the  lack  of  reliable 
quantitative  data  in  adequate  amount.  And  the  problem  has, 
so  far,  proven  only  partially  susceptible  to  closed  form 
solution.  In  no  real  sense,  therefore,  has  it  been  possible 
to  weigh  the  relative  merits  of  new  materials  of  construction, 
for  example,  or  variations  of  frame  spacing,  different  com- 
binations of  framing  systems  or  alterations  of  principal 
dimensions  (should  they  too  be  of  interest).11  CjQ  (Emphasis 
added) 

The  midship  section  design  of  longitudinally  framed  war- 
ships has  long  been  carried  out  en  the  basis  of  a  constant 
spacing  of  the  longitudinal  structural  stiffeners,  with 
varying  stresses  and  loadings  being  accounted  for  by  the 
variation' of  plating  thicknesses  and  longitudinal  scantlings. 

This  conventional  procedure  has  resulted  in  the  de- 
velopment of  designs  of  adequate  strength,  but  the  goal  of 
the  optimum  least  weight,  lowest  cost  ship  structural  design 
has  proved  to  be  an  elusive  one. 

Current  design  techniques,  although  effective,  add  to 
the  cost  of  ship  construction  by   the  price  penalties  Involved 
in  the  procurement  of  a  diversity  of  plates  and  shapes. 
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Similarly,  parts  handling  and  inventory  control  is  complicated 
and  rendered  more  difficult  and  expensive.  These  problems 
and  deficiencies  resulting  from  conventional  midship  section 
design  procedures  suggested  the  novel  approach  which  is  the 
subject  of  this  investigation. 

Fundamentally,  in  an  evaluation  of  an  extreme  variation 
from  current  procedures,  this  modified  design  methodology 
generates  a  design  with  a  uniform  plating  thickness  through- 
out, with  a  uniform  longitudinal  scantling  (exclusive  of  the 
keel)  similarly  selected.  Variations  in  loading  are  compen- 
sated for  hy  different  intervals  between  longitudinals  through- 
out the  midship  section. 

In  order  to  permit  a  reasonable  inference  as  to  the 
relative  merits  of  this  modifr^d  design  methodology,  the 
FORREST  SHERK&N  (DD-931)  class  destroyer  midship  section  lias 
been  taken  as  a  model  for  comparative  purposes. 
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II.      PROCEDURE 


For  purposes  of  consistency  with  the  techniques  used  in 
the  original  design  of  the  FORREST  SHERMAN,  the  design  pro- 
cedured  elucidated  in  [l],have  been  used  throughout  this  in- 
vestigation, modified  as  necessary.   The  sane  basic  stress 
criteria  have  been  used,  with  the  maximum  primary  compressive 
stresses  on  DD-931  specified  as  design  limiting  values.  As 
for  the  FORREST  SHEHKAN,  high  tensile  steel  (HTS)  has  been 
used  throughout  the  midship  section. 

The  calculations  required  for  this  investigation  have 
been  carried  out  almost  exclusively  by  a  series  of  computer 
programs  and  subroutines,  explained  in  detail  in  the  Appendix. 

Input  data,  including  the  plating  molded  offsets,  are 
generated  for  eventual  use  in  the  main  design  program,  RUTISCORE, 
and  the  main  costing  program,  COSTDATA.  Existing  plates  and 
scantlings  were  used  throughout  the  investigation  in  order  to 
permit  a  realistic  evaluation  of  costs  and  structural  char- 
acteristics. Actual  costing  criteria  in  use  at  the  Boston 
Naval  Shipyard  were  employed  in  conjunction  with  current 
Federal  parts  costing  information. 

Once  the  input  information  has  been  determined,  the  de- 
tailed design  process  is  carried  out.  First,  given  the  trans- 
verse frame  spacing  and  the  minimum  tolerable  longitudinal 
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spacing,  the  least  possible  plating  thickness  is  calculated, 
and  the  resultant  permissible  longitudinal  separation  com- 
puted. 

This  permissible  separation  is  applied  at  the  keel, 
thereby  locating  the  longitudinal  adjacent  to  the  keel.  The 
permissible  span  to  the  next  longitudinal  and  the  required 
longitudinal  are  then  determined.   This  computation  is  re- 
peated until  the  deck-shell  intersection  is  reached.  At 
this  time,  the  spacings  are  reduced  if  necessary  to  assure 
the  existence  of  at  least  the  minimum  permissible  spacing 
between  the  last  shell  longitudinal  and  the  deck  edge. 

The  deck  longitudinals  are  located  in  a  like  manner. 
The  arrangement  is  required  to  be  symmetrical  about  the 
centerline,  with  either  a  longitudinal  at  the  ccnterline 
or  the  centerline  exactly  at  mid-span  between  longitudinals. 
If  necessary,  the  interval  between  the  deck  longitudinals 
is  reduced. 

After  all  the  midship  section  longitudinals  have  been 
located,  the  required  scantlings  at  each  location  are  cal- 
culated. The  heaviest  of  these  is  then  selected  for  use 
throughout  the  midship  section. 

With  the  plating  thickness  selected,  longitudinals 
located  and  scantlings  determined,  the  overall  midship 
section  characteristics  are  calculated.  The  maximum  pri- 
mary compressive  stresses  at  the  keel  and  deck  centerline 
are  determined,  using  the  hull  girder  bending  moments  that 
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were  calculated  for  the  FORREST  SHERMAN. 

Should  either  of  the  calculated  stresses  exceed  the 
comparable  values  actually  existing  on  the  DD-931  as  built, 
the  plating  thickness  is  increased  and  the  entire  cycle  is 
repeated  with  larger  longitudinal  spacings  inevitably  re- 
sulting. If  the  stresses  are  acceptable,  the  calculation  is 
terminated. 

The  costing  procedure  evaluates  the  expense,  per  foot 
length,  of  building  the  midship  section.  Most  of  the  charge 
are  based  on  an  arbitrary  cost  of  &7«50  per  man-hour  (K-H) 
of  work.  This  charge  includes  shipyard  overhead  expenses. 
Government  price  data  is  used  to  determine  the  acquisition 
costs  for  structural  materials. 

The  weight  and  cost  of  the  modified  design  is  then 
compared  with  similarly-calculated  values  for  the  DD-931  as 
built. 
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III.   RESULTS 

Two  basic  series  of  midship  section  design  calculations 
were  carried  out  by  main  program  RUTTSCORE.  The  first  of 
these  computed  designs  with  the  minimum  acceptable  interval 
between  longitudinals  fixed  at  1.667  feet,  while  the  trans- 
verse frame  spacing  varied  from  6  to  8  to  10  feet.  The 
second  series  calculated  designs  for  a  transverse  frame 
spacing  fixed  at  8  feet  with  the  interval  between  longi- 
tudinals stipulated  to  be  a  minimum  of  either  1.667,  2.000, 
or  2.333  feet. 

Not  surprisingly,  the  midship  section  designs  developed 
with  constant  plating  thicknesses  and  uniform  longitudinal 
scantlings  proved  to  be  consistently  heavier  and,  for  less 
apparent  reasons,  which  are  discussed  in  the  following 
section,  more  expensive  to  build. 

The  results  of  the  calculations  for  different  trans- 
verse frame  intervals  are  presented  in  Table  I,  as  well  as 
similar  data  for  the  FORREST  SHERMAN  as  built.   Figure  I 
shows  a  schematic  plan  of  the  DD-931  midship  section  as  built, 
while  Figure  II  shows  a  schematic  for  the  midship  section 
design  resulting  from  a  transverse  frame  spacing  of  8  feet 
with  a  minimum  specified  longitudinal  interval  of  1.667  feet. 
Ilote  the  heavy  plating,  heavy  longitudinals,  and  great  in- 
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tervals  between  longitudinals  in  the  new  midship  section 
design.   Table  I  also  provides  detailed  cost  data  for  the 
three  new  designs  as  well  as  the  original  DD-931,  using 
identical  reference  data  for  all  four  cases. 

Detailed  information  as  to  the  location  of  longitudinals 
and  the  intervals  between  longitudinals  is  provided  in  Table 
II,  which  delineates  the  designs  developed  by  the  first  series 
of  computations. 

The  second  series  of  computer  runs  revealed  this  design 
methodology  to  be  very  insensitive  to  the  specification  of 
minimum  tolerable  intervals  between  longitudinals,  with  the 
exception  of  the  minor  effects  caused  by  possible  adjustments 
for  the  deck-shell  intersection  of  the  deck  centerline  cri- 
teria for  longitudinal  intervals.  As  a  consequence,  the 
designs  for  all  intents  and  purposes  were  identical  regard- 
less of  the  specified  minimum  intervals  between  longitudinals. 
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TABLE  I 

MIDSHIP   SECTIOIT  DESIGNS 
WEIGHT  AND  COST  SUMMARIES 


DESIGN:     New  Study       New  Study       New  Study         DD-931 

(As  Built) 


FRM  (Ft.)            6.00                  8.00  10.00  8.00 

TEL   (La.)           0.75                 0.75  0.75  (Varies) 

WEIGHTS   (Founds   per   foot   hull  length) 

TOTAL:               V736.6  ^716.7  ^7^8.0  3591-0 

Plating            335^-. 0  335^.0  38^-. 0  272^.5 

Longitnls.       505.3               505.3  9&>5  509.1 

Tr.  Framing     377.2              357. *+  3*+5-5  357. ^ 

COSTS        (Per  foot  hull  length) 

TOTAL:            $  1568.01       $  1^71*78  $  Ihl7.65  $  13W+.hl 

Plating            ^.97             h66.6l  U-6^.97  336.98 

Longitnls.         66. 30              66. 30  70.20  70.50 

Keel                      27.56                27.56  27.56  27.56 

Tr.  Framing     ^0^.96             303-72  2^-2.98  303*72 

PI.  Welding     298.6!+             301.33  298. 6*f  256.67 

PI.    Cutting          2.02                  2.70  2.02  0.00 

PI.   Rolling       23.^+0                23AO  23.I+O  19.18 

L.  Welding       113.50             113-50  120.18  1^-2.50 

Fl.    Cutting       17.85                17.85  18.90  28.50 

Rigging             3.1*8.80             1^8.80  lW.80  1^8.80 
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FIGURE  I 
THE  ORIGINAL  DD-931  MIDSHIP  SECTION  DESIGN  £] 
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Plating  Thickness: 
0.7?"  Throughout 

Longitudinals : 

All  I6"z7,,x1f0#  I-T 

Keel i 

2i"xl2"xl00#  I-T 


FIGURE  II 
MODIFIED  DD-931  MIDSHIP  SECTION  DESIGN 
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TABLS  II 

MIDSHIP  SECTION  DESIGNS 
STRUCTURAL  DESCRIPTION 


Fragile  Spacing  (Ft.)       6.00       8.00      10.00 
Plating  Thickness  (In.)   0.75       0.75       0.75 


STRUCTURAL  CHARACTERISTICS 

Keel  Stress  (Tons/In. |)  7.V3       7.V3       7.^3 
Deck  Stress  (Tons/In.  )  V.58       V.59       H-.V§ 

Moment  of  Inertia      1^2,120     lV2,105     1^3,819 
(In.2  Ft.2) 

N.  A.  above  Base  Line   lV.26       lV.25      1V.V6 
(Ft.) 

Keel  Longitudinal  2V"  x  12"  x  100#  I-T 

Other  Longitudinals        1CM  x  7"  x  V07?  I-T 

INTERVALS  BETWEEN  LONGITUDINALS*  (Feet) 


Deck-Shell  Intersection 


h.717 

V.717 

V.717 

V.78O 

V.751 

V.751 

^. 888 

V.852 

V.852 

5.157 

5.110 

5.110 

5.837 

5.72V 

5.72V 

7.295 

6.935 

6.93V 

7.931 

8.516 

8.517 

9.831 

9.079 

8.687 

6.822 

6.777 

6.500 

5.717** 

6.51V** 

6.350 
O.833*** 

*The  first  interval  begins  at  the  keel. 
**A  longitudinal  lies  on  the  deck  centerline. 
***The  deck  centerline  lies  midway  between  two  longitu- 


dinals. 
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TABLE  III 
TYPICAL  DESIGN  SUMMARY* 


PLATE      TOTAL     KSSL     MOM.  OF   LONGITUDINALS 
THICKNESS   WEIGHT    STRESS    INERTIA  NO.   SCANTLING 


Inches     Pounds   Tons/In.   In.2  Ft.2 


0.28125    2655-9    13. k7  76,183   5V   8x5.^:20 

Stresses  are  excessive,  design  repeated. 

0.3125     2709.5    13.38      77,391  kQ     10x5.8x21 
Stresses  are  excessive,  design  repeated. 

0.3^375    2731.9    12.95     79,760  k2     10x5.8x21 
Stresses  are  excessive,  design  repeated. 

0.375      2898A    12.  ^3      83,690   39  10x5.8x21 
Stresses  are  excessive,  design  repeated. 

0.^375     3131 A    11.^5      91,387   33  10x5.8x21 
Stresses  are  excessive,  design  repeated. 

0.500      3393.8    10.52     100,012   29  10x5.3x21 
Stresses  are  excessive,  design  repeated. 

0.625      3918.8     9.03     117,352   23  12x  h   xl6.5 
Stresses  are  excessive,  design  repeated. 

0.750     V716.7     7A3     1^2,105   17  I6x  7  x**0 

Design  acceptable,  calculations  terminated. 

*Main  program  RUNSC0R3  computation  for  transverse 
frame  spacing  of  8.0  feet,  specified  minimum 
longitudinal  interval  of  1.66 7  feet. 
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IV.   CONCLUSIONS  AND  RECOMKBhDATIOi-iS 

"The  midship  section  design  of  a  longitudinally-framed 
warship  with  uniform  longitudinal  scantlings  and  constant 
plating  thicknesses  has  been  shown  to  be  feasible. 

Table  I  on  page  8  vividly  shows  that  the  major  contri- 
butor to  the  poor  relative  performance  of  this  design  metho- 
dology in  terms  of  both  weight  and  cost  was  the  shell  plat- 
ing. Much  of  the  added  material  near  the  neutral  axis  and 
on  the  deck  (relative  to  the  DD-931  as  built)  was  very  in- 
efficiently applied,  as  is  evident  in  the  low  stress  levels 
existing  in  the  deck  structure  of  the  new  designs.   Similar- 
ly, the  cost  of  welding  and  fabrication  of  the  shell  plating 
was  materially  increased  by  the  presence  of  the  heavier 
plating  throughout  the  girth  of  the  midship  section. 

There  appears  to  be  a  distinct  reduction  in  cost  per 
unit  length  as  the  interval  between  transverse  frames  is 
increased.   This  is  apparently  the  consequence  of  the  appli- 
cation of  the  cost  of  this  framing  to  the  overall  structural 
cost.  The  cost  per  foot  length  of  the  transverse  framing 
varies  markedly  as  the  interval  between  the  frames  is  in- 
creased.  Similarly,  the  weight  of  the  transverse  framing  per 
foot  hull  length  reduces  as  the  interval  between  the  frames 
is  increased,  although  to  a  much  smaller  degree  than  the 
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cost  varies. 

No  distinct  trends  in  total  weight  per  unit  length  were 
apparent  in  this  investigation.  The  major  factor  leading  to 
variations  in  weight  was  the  number  of  longitudinals  required, 
as  both  the  selected  plating  thickness  and  longitudinal  scant- 
ling were  identical  for  all  three  cases  examined  in  detail. 

Unfortunately,  no  information  was  available  to  permit 
a  reasonable  estimation  of  the  savings  to  be  realized  by  the 
volume  acquisition  of  identical  structural  members.  This 
economy,  along  with  the  reduced  handling  and  storage  costs, 
should  be  incorporated  in  any  such  analysis  as  this,  but  is 
very  doubtful  that  these  savings  would  be  of  such  magnitude 
as  to  offset  the  disparities  existing  between  the  new  designs 
and  the  costs  of  consturction  of  the  original  DD-931  midship 
section  design. 

The  traditional  design  concept  of  varying  plating 
thicknesses  and  longitudinal  scantlings  is  a  sound  one.  This 
approach  promises  to  be  even  more  valuable  when  incorporated 
with  the  techniques  developed  in  this  investigation  for  the 
variation  of  the  intervals  between  longitudinals.   Further- 
more, the  use  of  different  structural  materials  should  be 
investigated  in  detail.  Very  frequently  stability  criteria 
dictate  the  plating  thicknesses  required  when  using  high 
strength  steels  such  as  HY-80.  The  variation  of  longitudi- 
nal intervals  would  permit  the  use  of  much  thinner  plates  in 
heavily  stressed  areas  without  the  problems  of  plate  stability 
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otherwise  to  bo  encountered.  Appreciable  weight  economies 

should  be  realized  from  the  superposition  of  the  technique 
of  variation  of  longitudinal  intervals  with  the  use  of 
different  structural  materials  while  varying  plating  thick- 
nesses and  longitudinal  scantlings. 

The  design  of  a  midship  section  with  a  single  plating 
thickness  throughout  and  uniform  longitudinal  scantlings 
proved  to  be  workable  but  less  efficient  than  conventional 
techniques.   The  basic  idea  of  varying  longitudinal  intervals 
is  sound,  and  detailed  studies  of  variations  on  this  basic 
idea  should  be  carried  out. 


APPENDIX 
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PROGRAM  DO  CUIX  NATION 

The  structural  and  cost  calculations  for  the  midship 
section  design  were  generated  by  a  series  of  computer 
programs  and  subroutines,  listed  below,  which  are  described 
and  explained  in  detail  on  the  following  pages.  A  program 
listing,  flow  chart,  and  sample  calculation  accompanies  the 
description  of  the  operation  of  each  program  or  subroutine. 

All  programs  and  subroutines  were  written  in  F0RTRA1I 

IV  and  were  run  on  the  IBM  36O/65  computer. 

Main  Programs: 

A.  RUNS CORE 
B-  COSTDATA 

Subroutines  called  by  Main  Programs. 

C.  TSLECT 

D.  HDWTR 

E.  CSPACS 

F.  CLOITGL 

G.  PMINER 

Subordinate  Programs  used  to  generate  input  data 
for  Main  Programs: 

H.  SEDATA 

I.  DKDATA  ' 

J.  PTLGTH 

K.  WTSMOD 

L.  TSHAPE 

M.  COSTKL 
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A.   KAIH  PROGRAM  RUNS.C0R3 


1.   DESCRIPTION 


Introduction 

Llain  program  ROTTSCORE  carries  out  the  design  calcu- 
lation for  the  midship  section  of  DD-931?  selecting  one 
plating  thickness:  and  one  longitudinal  scantling  (except 
for  the  keel)  to  be  used  throughout  the  structure.   The 
basic  computational  methods  described  by  St.  Denis  OG  are 
used,  modified  as  necessary. 

This  program  is  not  designed  to  optimize  the  charac- 
teristics of  the  midship  section.  The  required  plating 
thickness  is  selected,  the  spans  between  the  various 
longitudinals  are  determined,  and  the  required  longitudi- 
nal scantlings  are  evaluated.   Once  the  structural  design 
has  been  completed,  the  net  section  characteristics  are 
evaluated  and  the  resultant  primary  compressive  stresses 
are  compared  with  the  design  criteria.  Should  the  design 
be  overstressed,  the  next  greater  available  plating  thick- 
ness is  selected,  and  the  entire  cycle  is  repeated.   RUIT- 
SC0R3  uses  existing  HTS  plating  thicknesses  and  longitudi- 
nal scantlings,  as  opposed  to  any  idealized  materials  with 
a  continuous  range  of  available  sizes.  This,  inevitably, 
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results  in  overdesigned  structures  in  many  cases. 

After  the  input  phase  has  been  completed,  subroutine 
TSLECT  determines  the  minimum  permissible  plating  thick- 
ness, dictated  by  the  minimum  tolerable  longitudinal 
spacing  specified  as  an  input  to  the  program.  This  sub- 
routine also  determines  the  greatest  permissible  interval 
between  longitudinals  for  the  stresses  and  hydrostatic 
loadings  existing  at  the  keel. 

Beginning  at  the  keel,  the  program  "climbs"  the 
girth  of  the  midship  section.  The  first  longitudinal  is 
located  using  the  maximum  permissible  interval  determined 
by  subroutine  TSLECT.   Subroutine  CL01IGL  then  calculates 
the  required  longitudinal  scantling  for  this  location, 
and  subroutine  C3PACE  evaluates  the  span  to  the  next 
longitudinal,  and  the  cycle  is  repeated.  When  the  shell- 
deck  intersection  is  reached,  the  program  is  designed  to 
assure  that  the  span  to  the  intersection  is  at  least  the 
minimum  permissible  value.  The  distance  to  the  inter- 
section is  compared  with  this  minimum  and,  if  necessary, 
the  span. is  increased  by  reducing  the  spacings  between 
the  preceding  longitudinals  in  the  shell  structure.  This 
longitudinal  relocation  algorithm  is  so  structured  as  to 
prevent  the  inadvertent  reduction  of  longitudinal  spans 
to  less  than  the  minimum  tolerable  value.  Once  the  location 
of  all  longitudinal-plating  intersections  on  the  shell  has 
been  satisfactorily  completed,  the  program  proceeds  to  the 
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similar  location  of  the  deck  longitudinals. 

The  deck  calculations  are  carried  out  in  a  manner 
identical  to  that  used  for  the  side  shell.   HUHSC0R3  is 
so  structured  that  the  midship  section  must  be  symmetrical, 
with  a  deck  longitudinal  on  the  centerline  or  the  center- 
line  exactly  at  mid-span  between  two  deck  longitudinals. 
As  for  the  side  shell,  the  spacings  in  all  cases  must  be 
at  least  equal  to  the  minimum  permissible  value.   If  neces- 
sary/, provision  is  made  for  the  systematic  reduction  of 
spans  between  longitudinals  to  insure  that  this  is  the  case. 
Up  to  this  point,  the  program  has  assumed  that  the  longi- 
tudinals were  of  adequate  strength,  with  no  specific  de- 
termination of  scantlings. 

With  all  longitudinal  locations  now  determined,  the 
required  scantlings  for  each  specific  location  are  cal- 
culated, with  the  heaviest  needed  anywhere  in  the 
structure  selected  for  use  throughout  the  structure. 
Criteria  as  to  the  minimum  radius  of  gyration,  stiff ener 
strength,  stiffener  critical  strength,  and  the  stability 
of  the  stiffener-plating  combination  must  all  be  satis- 
fied. 

With  the  plating  thickness  and  longitudinal  scant- 
lings determined,  subroutine  PMIIISR  is  called  to  provide 
the  information  needed  to  calculate  the  contribution  of 
the  plating  to  the  moment  of  inertia  and  cross-sectional 
area  of  the  overall  midship  section.   The  effects  of  the 
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longitudinals  are  combined  with  this  to  determine  the 
total  cross-sectional  area  and  moment  of  inertia  for  the 
entire  midship  section* 

The  structural  weight  of  the  midship  section  is 
evaluated  in  some  detail.  The  total  '/eight  per  foot  length, 
including  an  approximate  valuation  of  the  contribution  of 
the  transverse  framing  to  the  net  weight,  is  calculated  in 
pounds  and  tons.  The  contributions  of  the  plating,  longi- 
tudinals, and  transverse  framing  are  similarly  determined, 
but  only  in  terms  of  pounds  per  foot  length. 

With  the  overall  section  characteristics  fixed,  the 
actual  hogging  and  sagging  bending  moments  used  in  the 
design  of  the  DD-931  aJ?e  employed  in  the  calculation  of 
the  actual  primary  compressive  stresses  exerted  in  the 
keel  and  deck  structure*  Should  either  of  these  exceec. 
the  design  limiting  values,  the  plating  thickness  is  in- 
creased to  the  next  greater  value,  and  the  entire  compu- 
tation is  repeated.  This  iterative  process  is  carried 
out  until  both  primary  compressive  stresses  are  deter- 
mined to  be  less  than  the  maximum  permissible  values. 


In out s 


Symbol  Meaning 

PTDATA(I,J,1)    Ealf  breadth  to  ooint  (I, J). 

(Feet) 
PTDATA(I,J,2)    Height  of  point  above  base 

line.   (Feet) 
PTDATA(I,J,3)    Distance  to  next  point  on 

girth.   (Feet) 
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Symbol 
ST1CRK 
ST1CRD 

ST22ST 

sgmult/sgmild 

A3HSEL 

Dl 
HLAMDK 

KLDFL 

XLGTrlL(Ijl) 

XLGTIIL(I,2) 

XLGTNLCI,3) 

XLGTNL  (!,*+) 

XLGTrTL(I,5) 

W5BMIN 

FRM 


Meaning 


Maximum  permissible  stress  at 

keel*.   (Tans/In.^) 
Maximum  permissible  stress  at 

(Tons/ 


deeK  cencerlmc 


In. 'S) 

B~s.tima.ted  value  of  secondary; 
stress.   (Tons/In.^) 

Yield  stress  of  the  plating, 

(Tons/In.2) 
Specified  maximum  heel  angle. 

(=  0.5236  radians) 
Depth  of  hull",   (=  26.23122+7 

feet) 
Specified  design  head  of  water 

above  main  deck.   (=  k.O 

feet) 
Design  full  load  draft. 

(=  lh.5   feet) 
Maximum  moment  of  inertia  of 

stiff ener  (I).   (In.  ) 
Stiffener  minimum  moment  of 

inertia.   (In.1*-) 
Stiffener  area.   (In.  ) 

VCG  of  stiffener  from  the  cut 

flange.   (In.) 
Stiffener  overall  depth.   (In.) 

Minimum  permissible  longitudi- 
nal spacing.   (Feet) 

Transverse  frame  spacing. 
(Feet) 


Calculated  Items 


Symbol 
XL0!IGL(I,1) 

XL0i!GL(I,2) 

xloi;gl(i,3) 

XL0NGL(I,1i-) 


Meaning 

Half  breadth  of  intersection 
of  plating  with  longitudi- 
nal (I).   (Feet) 

Height-  above  keel  of  plating- 
longitudinal  intersection. 
(Feet) 

Half  breadth  of  point  preceding 
the  intersection.   (Feet) 

Height  above  keel  of  point  pre- 
ceding the  intersection. 
(Feet) 
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Symbol 

W53ACT 

W5BPBC 
W^BTOL 

SUMDST/DSTSUM/ 

D3U1-I 

50MCAL/SDKDIF 

DIFF 
ILONGL 

ICOUTTI 

SPAII(I) 

BBDIST 


STEP 

IDIFF 

AAA 
FF 

FFF 


Meaning 

ii 

Tolerable  longitudinal  spacing 
for  selected  plating 
thickness.   (Feet) 

Longitudinal  span  to  longi- 
tudinal in  question.   (Feet) 

Permissible  spacing  to  next 
longitudinal.   (Feet) 

Sua  of  distances  between  points 
on  girth.   (Feet) 

Distance  to  point  preceding 

plating-longitudinal  inter- 
section.  (Feet) 

Distance  from  point  at  SUIICAL/ 


An 


SUKDIF  to 
(Feet) 

identifying 
gitudinals 


cue  intersection. 


number  for  Ion- 
other  than  the 
keel.   Ho.  1  adjacent  to 
the  keel. 

The  value  of  ILOTTGL  at  deck- 
shell  intersection.   Ho 
longitudinal  here. 

Distance  to  longitudinal  (I) 
from  preceding  longitudi- 
nal. ~ (Feet) 

Distance  needed  to  be  gained 
by  reducing  spans  between 
shell  longitudinals  to 
permit  W53HIE  distance 
from  last  shell  longitudi- 
nal to  deck  intersection. 
(Feet) 

Increment  the  span  between 
longitudinals  is  reduced. 
(Feet) 

Number  of  spans  to  be  reduced 
on  deck  to  obtain  desired 
span  at  centerline. 

Effective  width  of  plating. 
(In.) 

Moment  of  longitudinal-plating 
combination  about  outer 
edge  of  the  plating.   (In. 3) 

Total  area  of  the  longitudinal* 
plating  combination.   (In.  ) 
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Symbol 
CGCG(I) 

XMUSERCI) 

RGYR 
EFSPA1I 

DVALUE 

STALL 

ABM 

PRESS 
BMOMNT 

ST1E3T 
ST2ALL 
REQMOD 

SMGDMN(I) 

BVALUE 
BETA 
GAMMA 
DELTA 


Leaning 

Centroid  of  longitudinal  - 
plating  combination,  in 
web  axis.   (In. ) 

Moment  of  inertia  of  longi- 
tudinal-plating combi- 
nation about  CC-CG(I). 
(In.') 

Radius  of  gyration  of  lon- 
gitudinal-plating combi- 
nation.  (In.) 

Effective  span  (supports 
fixed)  for  stiffener 
strength  calculation  . 
(Feet) 

Flexural  rigidity  of  plating. 
(Ton- In.) 

Permissible  sum  of  primary 
and  secondary  stresses. 
(Tons/In.2) 

Distance  to  outermost  fiber 
of  longitudinal-plating 
combination  from  CGCG(I). 
(Inches) 

Hydrostatic  pressure  at  lon- 
gitudinal.  (Tons/In.2) 

Kaxiiacua  bending  moment  on  the 
longitudinal-plating  com- 
bination at  mid-soan. 
(Ton- In.) 

Estimated  primary:  stress. 
(Tons/In.2) 

Allowable  value  of  secondary 
stress.   (Tons/In.2) 

Required  section  modulus  of 
plating-longitudinal  com- 
bination.  (In. 3) 

Required  section  modulus  for 
longitudinal  (I)-plating 
combination  at  determined 
by  subroutine  CLOKGL.  (In. ->) 

Rigidity.   (EI)   (Ton-In.2) 

Aspect  ratio  of  plate. 
Inertia  factor. 
Area  factor. 
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Symbol 
S.UKTN 

3STAPL 
CRIT3T 
TOLSTH 

ARSAPT 

XLNGTL(1,I) 
XLNGTL(2,I) 
SL0PB2(E) 
ZZZ 

ZPOINT 
BASEMT(K) 

BLKOM 

XMOKIIT 
XI1IEK 

ATKL 


meaning 

Intermediate  value  used  In 

calculating  critical 

strength  of  stiffened 

plating.   (Tons/In.2) 
Used  in  calculating  critical 

strength  of  stiffened 

plating.   (BETA2  +  1) 
Design  stress  criteria. 

(Tons/In.2)   (1.25  x 

(ST1SST  +  ST22ST)) 
Tolerable  stress  level  de- 
termined py  critical 

strength  calculation. 

(Tons/In.) 
Total  cross  section  area  of 

half  breadth  plating. 

(In.2) 
Characteristics  of  keel 

longitudinal. 
Characteristics  of  other 

longitudinals . 
Slope  of  the  web  of  longi- 
tudinal (K) . 
Height  of  VCG  of  longitudinal 

above  longitudinal-plating 

intersection.   (Feet) 
Height  of  VCG  of  longitudins 

above  the  base  line. 
Height  of  VCG  of -longitudi. 

above  the  base  line. 

K  =  1   Keel 

K  =  2,...IfO         (LOiIGL  1,...39) 
Total  moment  abpi.it  the   base 

line.   (In.2  Feet) 
Total  moment  of  inertia  about 

the  base  line.   (In.   Feet2) 
Moment  of  inertia  of  the  mid- 


(Feet) 


(Feet) 


ship  section  a' 
neutral  axis. 


jout  tne 
(In.2  Feet2) 


Plating  thickness  found  to  be 
•  insufficient,  to  be  in- 
cremented.  (Inches) 


Output 


Symbol 
WEIGHT 


Weight  contribution  of  the 
plating.   (Pounds/Ft. 

lengthj 
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Symbol 
ZNAXIS 

RBQMIN 

ASTRSS 

B3TR23S 

WT0TL3 

WFRAKE 

WTOTAL 

WLCIIGL 


Meaning 


Height  of  neutral  axis  of  mid- 
ship section  above  base  line. 
(Feet) 

Required  moment  of  inertia  about 
original  DD-931  neutral  axis. 
(In.2  Ft*2) 

Actual  urimary  comoress^ve  stress 
in  keel.   (Tons/In.2) 

Actual  primary  compressive  stress 
in  deck.   (Tons/In. 2) 

Total  structural  weight.   (Pounds/ 
Ft.,  length) 

Transverse  frame  weight.   (Pounds/ 
Ft.  length) 

Total  weight.   (Tons/Ft.  length) 

Total  longitudinal  weight.   (Pounds/ 
Ft.  length) 


Sample  In put/Cut nut 


(Refer  to  printout  of  typical  computer 
run,  following  pages) 


Fundamental  Equations 


(Refer  to  program  listing,  follow- 
ing pages,  and  St.  Denis  CCP 


THE  FOLLOWING  IS  A  REPRESENTATIVE  SAMPLING  OF 

EQUATIONS  PARTICULARLY  IiIPORTA:;T  TO  1IAIIT 
PROGRAM  RUII  SCORE: 

Longitudinal  location 

SUKDST  =  SUMDST  +  PTDATA(I , J ,3) 

SUMCAL  =   SUMDST  -  PTDATA(I  ,J,3) 

DIFF  =  W53PRC  -  SUMCAL  WT1T,    ,„mTSAr1  ,T  T 

'  DIFF  x    (PTDATA(I,J+1,I) 

XL0NGL(IL0NGL,1)    =     PTDATA(I ,J,1)    +  zPTDATAU,  J  ,1) 

XL0ITGL(IL0ITGL,3)    =     PTDATA(I,J  ,1) 
Satisfy  requirements   as   to  minimum  radius   of  gyration 
AAA  =     lesser,  12.   x  SPAN  (I)     or      50.   x  TEL 

FF  =     XLGTIIL(J,3)   x   CXLGTHL(J,ifr)   +  TKL)      + 

0.5  x  AAA  x   (Till2) 
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FFF  =     XLGTT;G(J,3)      +      TEL  X  AAA 
CGCG(I)    =     FF  /  FFF 


XKEMSR(I)    =     XLGTiIL(J,l)      ±     XLGTHL(J,3)    x   (XLGTNLGT,1*-) 

-   CGCG(I))^     +     0.03333  x  AAA'  x 


THL3      +      TBI  x  AAA  x    (CGCG(I)    - 


>333 

'El  x  AAA  3 
0.5  x  THL) 

RGZR  =    /~™32 


Satisfy  requirements  as  to   stiffener  strength 
BFSPAU  =     12.    x  0.577  x  FHM 
DVALUE=     ^392 .357  x  TI0.3 

JLU  •  O 

EKOMNT  =  216.  x  PRESS  x  SPAN(I)  x  FHM2 
REQKOD  =  EMOMNT  /  ST2ALL 
BVALUS  =■  13392.857  X  XMINBR(I) 

GAMKA  =       BVALUE 


12.    x  SPAII(I)   x  D'/ALLI 


DiLlA  =     12.  x  SlPAtUn  x  THL. 

ST? Til  -'      3;1^162  x  DVALUB 

SUliTN  -    J?fi~  x  thi  x  spa::(I)2 

BETAPL  =  1.0  +  BETA2 

CRITST  =  1.25  x  (ST1E3T  +  ST2SST) 

TwqTi?  -  STjI-ITN  x  (BETAPL2  ±     h.   x  GM) 
i0Lbiii  "    BETA?  x  (1.  +  >.x  DELTA) 

Calculate  the  total  moment  of  inertia  of  the  midship  section 

ADINER  =  XLNGTL(1,3)  x  BASSMT(K)2  + 

XLNGTL(1,2)/1Mk      +      (XLNGTL(l.l)    - 
XLIIGTL(1,2))2  x  2.    x 


Arctan(3LCPE2(K)) 
Wf.   x  3.1^15      *~ 


mnro   _     JZNAXIS  x    (3LK0K2     =     AREAPT  x  XHOIIIIT) 
jLLRxxtt  -      |  BLMOK 
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Add  in  the  weight  contribution  of  the  main  transverse 


frames 


WTOTLB  =  3 A  x   AHSAFT  +   - 't0'^  -   &&:  -   3)/Q)2 


FRM 


Sample  Calculation    (Refer  to  program  listing,  flow  chart, 

and  printout  of  typical  computer 
run,  following  pages) 
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G  LtVEL  0,  MOO  C 


MAIN 


DATE  s  67132 


19/43/5d 


DIMENSION  XLONGLl  +0,4) t SPAN (40 J , SMODMNI40J , XLGTML { 9 , 5 )  , XLNGTL ( 2 , 5 ) 
tCGCGi 40) , XKINER140) f SLOP E2 (40) ,PTDATA( 30 , 10,3) , BASEMTJ40 ) 

INPUT  UATA  AND  INITIALIZE  STORAGE  VALUES 


954 
951 
901 

907 

903 


1 


910 


941 
9C0 
915 
916 
917 
918 
919 
920 
921 
1921 

1922 

1923 
] 
922 
923 
924 
934 
933 
925 
926 


1 


W5BACT 
FORMAT 

pfoa 

FORMAT 
WRITE 
FORMAT 
DO  9C7 
DO  907 
READ  ( 
DO  903 

00  903 
XLONGL 
DATA  X 

1  =  30 
J  =  1 
READ  ( 
DO  910 
DO  910 
PTDATA 
DO  941 
DO  941 
XLNGTL 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
) 

FOR MAT 
NGTH' ) 
FORMAT 
LENGT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
FORMAT 


=  C. 
(  '  1 

TA(  I, 
I  <+X, 

(6,  9 
(23X 
I  = 
J  = 

5,901 
I  = 
J  = 

(  I  ,J) 

L1BP, 


5,9C1 
J  = 
K  = 

(I, J, 
J  = 
K  = 

{  J,K) 
(5F1 
(  •  1 
(  '0 


0 

I         J        PTDATAt I, J, 1)     PTDATAt I, J, 2) 

J, 3)  •  ) 

I4,4X,I4,7X,3(F10.6,5X) ) 

54) 

,4(2X,F1C6)  ) 

1,29 

It  10 

)  PTOATA{ I , J,l ) ,  PTDATAt I , J, 2) , PTDATAt I , J, 3) 

1,  40 

1,  4 

=  0.0 
SUMDST, IL0NGL,R5GYRA,rt56T0L/40  7. , 0. ,1,0. ,0./ 


)  P 
2,  1 
1,  3 


TDATA( I , J,l) ,  PTDATA{ I ,J,2) ,  PTDATAt I , J , 3 ) 

0 


K) 
1, 
1, 


=  G-*0 


(  «0 

(  '0 
(  «c 
(  '0 
(  '0 


2 
5 
=  0 
6.7) 
RE  3 
ACT 
MAX 

AC  1 

MAX 
ACT 
IOT 


.0 


UIRED  MOMENT  OF  INERTIA  =«,F20.6,«  IN**2   FT**2') 
UAL  MOMENT  OF  INERTIA  =',F20.6,'  IN**2   Fj**2') 


.  TOLERABLE  i't  1GRK  = 
UAL  ST1CRK  =',F10.7, 
.  T0LERA3LE  ST1CRD  = 
OAL  ST1CRD  =',F10.7, 
AL  WEIGHT  =  »,  F10.7, 


tFlO.7,'  TONS  PER  SO.  INCH') 
TUNS  PER  SQ.  INCH* ) 

,F10.7,'TONS  PER  SQ.  INCH') 
TONS  PER  SQ.  INCH' ) 
TONS  PER  FOOT  LENGTH' ) 


( 

( 

H' 
{ 
( 


) 

•0 

'0 
•0 
'0 

•  1 

•0 

•0 


PLATING  WEIGHT  =',  F15.7,'  POUNDS  PER  FOOT  LENGTH' 

LONGITUDINAL  WEIGHT  =  «,  F15.7,'  POUNDS  PER  FOOT  LE 

TRANSVERSE  FRA^IE  WEIGHT  =«,F15.7,«  POUNDS  PER  FOOT 

TOTAL  WEIGHT  =',  F15.7,'  POUNDS  PER  FOOT  LENGTH') 
NEUTRAL  AXIS  IS  «,F10.7,'  FEET  ABOVE  BASE  LINE') 
DESIGN  IS  ACCEPTABLE'  ) 
SPAN(',I2,')   =',F10.6) 
SPANt',12,')   =',F10.6) 

DESIGN  REPEATED  WITH  TH1  INCREASED') 

DESIGN  IS  NOT  POSSIBLE  UNLESS  TH1  IS  GREATER  THAN 
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G  LEVEL  Ot 


100 


MAIN 


DATE  =  67132 


19/43/53 


1  U:\lt  INCH.'  ) 

928  FORMAT  I'C   SCANTLING  ',13,'   SELECTED-- CROSS-SECTl'ON  AREA  IS',F1 
10.7,'   SQ„  IN.  ANO  WES  DEPTH  IS  'tFIO.7,'  INCHES.') 

929  FQRMATCO   KEEL  HAS  AN  AREA  OF '  , F lC . 7  ,  '  SQ.  IN.  AND  A  WEB  DEPTH  OF 
1  »,F10.7,'  INCHES.  ') 

D09  50  1=1,  30 
DO  950  J  =  1,  10 
950  WRITE(6,95i)  I , J , PTD AT  A { I  ,  J  ,  1 )  , PTDATA ( I , J , 2 ) , PTDATA {  I , J , 3  ) 
READ  (5,900)   ST1CRK,  ST1CRD,  ST2tST,  SGMULT,  SGMYLD 


955  FORMAT  I 

956  FORMAT  I 

957  FORMAT  { 

958  FORMAT  ( 

959  FORMAT  ( 

960  FORMAT  ( 

961  FORMAT  < 

962  FORMAT  { 

963  FORMAT  ( 


0 


INTERIM  TH1  =»,F10.6,»  AND  W58ACT  =*,F1C.6) 
1     J  =•  ,13,  "       SUMOST  =  ■  ,F10.6) 

=  •  ,F10.fa,  •    I  =  • ,12,  •   J  =  ',12) 


I  =',13, 


I  = 


13, 


HM  =  ■ ,  F10.6) 


YPR 


VCG 


C 
C 
C 
C 
C 


XMINERl  '  ,12,  '  )  ='    F15.6) 
CGCG( • ,12, ■ )   =  ' ,  FIG. 6) 
LONGITUDINAL  (',  12,')   IS  SELECTED') 
3ASEMTC,  12, »)   =  ',F10.6) 

SELECTED  PLATING  THICKNESS  =  '  ,F10.6,*  INCHES.   •) 
READ  (5,900)   A3HEEL,  01,  H1AMDK,  H10FL 
902  FORMAT  ( 1HI , 6X , ' ST 1CRK • ,9X,»ST1CRD' , 9X ,' S T2 EST ', 9X , ' SGMULT' ,9X, 
1  'SGMYLD') 

904  FORMAT  (5(5X,F10.6)  ) 

905  FORMAT  (5X,»W5BMIN   =',F10.o,'    FRM   =»,F10.6) 

911  FORMAT  ( I3,6(2X,F13.6)  ) 

912  FORMAT  1I1I,,4X,'      Y     »,5X,'      Z     »t5X,» 
1  5X,'     ZPR    • ,7X,'SPAN(I )' ,7X, 'SMODMNt I) ' ) 

913  FORMAT  (5F16.7) 

964  FORMAT  ('C   I     MAX.  I.       MIN.  I.  AREA 
1      DEPTH' ) 

975  FORMAT  (2X,  12,  2X,F11.6,  4(3*. FLO. 6)) 
WRITE  '6,  964) 
DO  91t  1=1,9 

READ  (5,913)  XLGTNLt I ,  1 )  , XLGTNL ( I , 2 )  , XLGTNL ( I , 3 ) ,XLGTNL (I ,4) ,XLGTN 
1L(I ,5) 

914  WRITE  (6,975)  I,  XLGTNL(I,1),  XLGTNL(I,2),  XLGTNL(I,3),  XLGTNL(I,4 
1),  XLGTNLt 1,5) 

965  FORMAT('0   W5BACT  si,F10, 6, •    W58PRC  =',F10.6,'    W58T0L  =',F10.6 
1) 

966  FORMAH'O    Y  =*,F10.6,'   Z  =',F10.6,'   YPR  =',F10.6,«   ZPR  =',F10 
1.6) 

967  FORMAT  CO    CLONGL  OUTPUT  =  '  ,4  (  F  10  .  6  ,  5X  )  ) 

PROVIDE  INPUT  DATA  TO  CONTINUE  CALCULATION  INTERRUPTED  IN  PREVIOUS 
COMPUThR  RUN.    SOLUTION  UP  TO  THIS  TIME  INDICATED  FURTHER  INCREMENTS 
IN  PLATINo  THICKNESS  WERE  NECESSARY. 

500  READ  (5,  900)  W5BMIN,  FRM 

IF  (W58MIN  .GT.   9.99)   GU  TO  420 


-  31  - 

LEVEL  0,  MUD  0  MAIN  UATE  =  67132  19/43/58 

W 58  ACT  =  CO  l 

400  WRITE   (6,  902) 

suMbsr  =  o.o 

ILOMGL  =  1 

W5BTOL  =0.0 

IF  [W5BACT  .GT.  0.0)  GU  TU  66 d 
C 

C      DETERMINE  PLATING  THICKNESS 
C 

CALL  TSLECT  (  W5BMINf  STICRKt  ST2EST,  SGMULT,FR.M,TH1 1  W58ACT) 

GO  TO  667 
668  W53ACT  =  TH1  *  W5BACT  /  ATH1 
6*6  7  00  940  J  =  It  40 

SPAN (J)  =0.0 

SMGDMN  (J)  =  0.0 

CGCG(J)  =0.0 

XMINER(J)  =  0.0 

SL0PE2U)  =  0.0 
940  BASEMT(J)  =  0.0 

DO  9940  J  =  1,  40 

DO  9940  K  =  1,  4 
9940  XLONGL(JtK)  =0.0 

WRITE  (6,904)  STlCRK,STlCRDfST2EST,SG.MULT,SGMYLD 

WRITE  (6,  905)  W5BMIN,  FRM 

WRITE  (6,  955)   TH1,  W53ACT 

W5BPRC  =  W58ACT 

WRITE  (6,965)  W5BACT , W5BPRC f W5BTUL 
C 

C      DETERMINE  ACCEPTABLE  LONGITUDINAL  SPACING  FOR  BOTH  DECK  AND  SIDE 
C      SHELL  LONGITUDINALS. 
C 

226  DO  200  I  -  1,  '30 

DO  200  J  «  If  10 

IF  ( ILONGL  .GT.  1)  GO  TO  333 

W5BPRC  =  W53ACT 

GO  TO  115 
333  W5BPRC  =  W5BT0L 
115  SUMDST  =  SUMDST  +  PTDATA  (I,  J,  3) 

WRITE  (6,  956)  I,  J,  SUMDST 

IF  (I  .EQ.  30)  GO  TO  225 

IF  (I  .EQ.  19)  GO  TO  205 

GO  TO  207 
205  IF  (J  .EQ,  10)  GO  TO  204 
207  IF  ((SUMDST  -  W5BPRC)  .GT.  0.0)  GU  TO  201 

GO  TO  200 
201  SUMCAL  =  SUMDST  -  PTDATA (  I , J, 3 ) 

DIFF  =  W5BPRC  -  SUMCAL 


LEVEL  Of  MOD  0 


MAIN 


-.  32  r 


DATE  =  67L32 


19/43/53 


LOCATE  THE  LONGITUDINALS 


IF  (J  .EQ.  10)  GO 
XLONGLt  ILONGL, 1  ) 

1  IPTQATAU,  J  +  1,1) 
XLONGLt  ILONGL  ,2  )  = 

1  (PFOATAt i , J+1,2) 
XLONGLt ILONGL i  3) 
XLONGLt ILONGL f  4) 
SUMOST  =  SUMOST  - 


+  (DIFF/PTOA1 A{ I , J, 3)  J 


TU  202 
=    PlDATAt I, J, 13 

-  PTOATA(  I, J,  1)  } 
PTDATAt  I, J, 2)  +  {DIFF/PTDATAl  I, J, 3)  )  * 

-  PTQATA(  I, J, 2)  ) 
=  PTDATA  (I,  J,  1) 
=  PTDATA  ( I ,  J,  2) 
*5BPkC 

WRITE (6, 966) XLONGLt  ILONGL, 1 ) , XLONGLt ILONGL, 2) ,XLONGL(  ILONGL, 3>,X 
ILONGL ( ILONGL, 4) 
GO  TO  203 

202  XLQNGLC  ILONGL, 1 )=  PTDATA ( I , J, 1 )  +  { 0  I FF/PTDAT A{ I , J , 3 )  )  * 
1  (PTDATA( 1+1,1,1)  -  PTDATAt I, J, 1) ) 

XLONGLt ILONGL, 2)  =  PTOATA I  I , J , 2 )  +  ( 0 IFF/PTOATA ( I , J , 3 )  )  * 
1  {PTDATAt 1+1, 1,2)  -  PTDATAt  I, J, 2)  ) 

XLQNGLl  ILONGL, 3)  =  PTOAT A { I , J , 1 ) 

XLONGLt ILONGL,  4)  =  PTDATA  (I,  J,  2) 

SOMDSJ"  =  SU"tDST  -  W5BPKC 

WRITE(6,9oo) XLONGLt  I  LONGL  ,  1  )  ,  XLONGLt  I  L0NGL,2)  ,  XLONGLt  ILONGL,  3)  ,X 
lLONGLt ILONGL, 4) 

CALCOLATE   R5GYRA   AND   SMOOMN   REQUIRED  FOR  LONGITUDINALS 

WRITE  (6,  965)  W5BACT,  W5BPRC,  W5BT0L 

203  AAA  =  R5GYRA 

CALL  CLGNGL(STlCRK,STlCRD,ST2EST,SGMULT,FRrl,THl,W58PRC, 
1  R5GYRAfSM0D.MN(  ILONGL  )  , XLONGLt  ILONGL,  1  )  , XLONGLt  ILONGL, 2  )  ) 

WRITE  (6,  9b7)  R5GYRA,S,M0DMN(  ILONGL)  , XLONGLt  ILONGL, 1 ) , XLONGLt  I  LONG 
1L,2> 

WRITE  (6,  965)  W5BACT,  W5BPRC,  W5BT0L 

IF  (R5GYRA  .GT 

R5GYRA  =  AAA 


W5BACT,  W5BPRC, 
AAA)  GO  TO  210 


C 
C 

C 


DETERMINE  LONGITUDINAL  SPACING. 

210  CALL  CSPACE  t ST 1CRK , ST 1CR0, ST2E ST, SGMULT , FRM , TH 1 , 
1  XLONGLt ILONGL, 1) , XLONGLt  ILONGL , 2 ), w5BPRC , W5BT0L ) 
SPANt ILONGL )  =  *5BPRC 


WRITE  (6,  957)  ILONGL, 
WRITE  16,  965)  W5BACT, 
ILONGL  =  ILONGL  +  1 
GO  TO  200 


SPANt ILONGL) ,1 ,  J 
W53PRC,  rt5bT0L 


ADJUST  FOR  DECK-SHELL  INTERSECTION. 


204  I  COUNT  =  ILONGL 


-  33  - 


LEVEL  0,  MOD  G 


MAIN 


DATE  =  67132 


19/43/5d 


203 


214 


IF 
SPA 
WRI 
SUM 
XLO 
XLQ 
XLO 
XLO 
WRI 
1  XL 
ILL) 
GO 
XX 
BBO 
STE 
JJ 
IF 


(Sum  j 
N  (  IL 
IE  (5 
DST  = 
NGL  I 
NGL  ( 
NGL 
NGL 


ST 

UNG 
t  9 
=  0. 
{  ILO 
(  ILO 
{  Ilu 


C 

c 
c 


98 


97 

99 
216 
999 


107 


127 


ILU 
966 
ILG 

IL 
0 
NGL 

W5 
501 


.LT 
L) 
57) 
0 

NGL 
NGL 
NGL 
NGL 
)XL 
NGL 
GNG 


.     K5BMIN)     GO    TO    2  08 
=    SUiMOST 

ILONGL,  SPANCLLONGL), 


1 


t 1)  =  PTDATA(20, 

,2)  =  PTDATA(20, 

,3)  =  PTGATA(20, 
,4) 


It 

1. 
it 
1. 


1) 

2) 

1) 
=  PTDATA(20,  1,  2) 
ONGL( I LONGL fl ) , X LONGL ( I LONGL , 2 ) ,X LONGL (  IL0NGL,3), 
,4J 
L  +  1 


( 
TE(6, 
ONGLt 
NGL  = 
TU  20 
=  ILG 
1ST  = 

p  =  a 

-   l 

USPAN(l)  -  W5BMIN)  .GT.  STEP)  GG  TO  216 


-  1 
3MIN  -  SUMOST 
ST  /  XX 


ADJUST  SPACING  BY  REDUCING  THE  SPAN. 


DO 

cc 

83D 

IF 

SPA 

WRI 

IF 

SPA 

WRI 

STE 

DS 
DO 
DO 
DST 
IF 
IF{ 
GO 
SPA 
SUM 
DIF 
WRI 
IF 
SPA 

WR 
GO 
IF 
XLO 
L  PT 


98  JA 
=  SPA 
1ST  = 
(B3DI 
N  (  J  A 
TE  (t> 
(  JAJA 
N  (  J  A 
TE  (6 
P  =  0 

TQH" 

[  J  J)  I 

215  I 
215  J 
SUM  = 
U  LO* 
(SPAN 
TO  21 
N  (J  J  ) 
OIF  = 
F  =  S 
TE  (o 
(SPAN 
N  (  J  J  ) 
ITE  ( 
TO  11 
(JA  . 
NGL  (J 
DATA 


JA= 
N(  J 

33 
ST 
JA) 
t  9 

.E 
JA) 
t  9 
.0 

T   0 

A  = 
A  = 
DS 
IA 
(  JJ 
5 

DS 
PAN 
»  9 
(  JJ 

b, 
0 

EQ. 
Jt  1 
(  IA 


It  I LONGL 

AJA)  -  W5BMIN 

DIST  -  CC 

.LT.  0.0)  GO  TO  97 

=  W  5  B  M I N 
57)  JAJA,  SPAN( JAJA) , 
Q.  ILONGL)  GO  TO  99 

=  SPAN  (JAJA)  -  CC  - 
57)  JAJA»  SPAN(JAJA), 


I»  J 

B3DIST 
It  J 


.0 

It  19 

It  10 
TSUM  f-  PTDATA  (IA,JA,3) 
♦  JA)  .EQ.  200)  GO  TO  110 
)  -  DSTSUM)  .LT.  0.0)    GO  TO 

SPAN(JJ)  -  STEP 

TSUM  -  PTDATA(  IA,JA,3) 

(JJ)  -  SUMDIF 

57)  JJ,  SPAN( JJ)  ,  IA,  JA 

)  .GT.  0.0)  GO  TO  127 

0.0 

957)  JJ,  SPAN(JJ),  IA,  JA 

10)  GO  TO  108 
)  =  PTDATAt IA,  JA,1)    +     ( 
,JA,3))  *  (PTDATAt IA,JA+1, 1) 


107 


DIFF     / 
-  PTDATAl IA, JA,1) ) 


-  3^  - 


LEVEL  0,  MOD  0 


MAIN 


DATE  -  67132 


19/43/58 


XLO 

1  PT 

XLO 

XLG 

WRI 

OST 

JJ 

GO 

108  XLO 

1  PT 

XLO 

i  pr 

XLO 

XLO 

WRI 

DST 

JJ 

GO 

110  XLO 

XLO 

XLO 

XLO 

SPA 

.  WRI 

WRI 

ILO 

SUM 

GO 

215  CON 

(  OIFF  / 

-  PTL)ATA(  I  A,  JA,2)  ) 


C 

C 

c 
c 


c 
c 
c 
c 


NGL(JJ,2)  =     PTOATA(  1A,JA,2)    + 

DATA(IA,JA,3)  )  '*  ( PTDATA! I  A, JA+i »2 

NGl!jJ,3)=  PTDATA  (IA,  J A,  1) 

NGL!JJ,4)=  PTDATA  (IA,  JA,  2) 

TE(6 ,966) XLONGL! J J , 1 )  , XL GNGL ( J J , I ) , XLONGL ( JJ, 3 ) , XLONGL (J  J, 4} 

SUM  =  DSTSUi'i  -  SPANt JJ) 

=  JJ  +  1 

TU  215 

NGL(JJtl)  =  ?TDATA( iA, JA,1 )    + 

DATA(  IA,JA,3)  )  *  ( PTOATA ( I A+ 1 , 1 , 1  ) 

NGL(JJ,2)  =     PTDATA( IA,JA,2)    + 

DATA!IA,JA,3))*(PTDATA(IA+1,1,2)  - 

NGL(JJ,3)=  PTDATA! IA, JA, 1) 

PTOATA ( IA,  J A,  2  ) 

XLUfMGL  t  JJ,  1)  ,XLONGLt  J  J, 2  J  ,  XLONGL  (  J  J  ,  3  )  ,XLONGL! J J,4 ) 


(   DIFF     / 

-  PTDATA(  IA,  JA,  1)  ) 

I  DIFF  / 
PTOATA!  IA,JA,2)  ) 


,  XLONGL (J  J, 2)  , XLONGL (J  J, 3) , XLONGL ( J J , 4 ) 
,  IA,  JA 


NGL(JJ,4)  = 

T6  lb,  966) 

SUM  =  DSTSUM  -  SPAN! J  J) 

=  JJ  +  1 

TU  215 

NGL(JJ,1)=  PTOATA  (20,1,1) 

MGL(JJ,2)  =  PTDATA(2Q,1,2) 

NGL(JJ,3)=  PTOaTA  (20,1,1) 

NGL!JJ,4)=  PTDATA  iZO,     1,  2) 

Ml ILONGL )  =  W5BMIN 

TE  (6,  966)  XLONGL ( J J,  1) 

TE  (6,  957)  JJ,  SPAN(JJ) 

NGL  =  ILONGL  +  1 

OST  =  0.0 

TO  200 

TINUE 

ADJUS1  DECK  LONGITUDINAL  SPACING  TO  FACILITATE  SYMMETRY  RELATIVE 
TO  THE  CENTER  LINE. 

225  IF  (((0.5  *  W5BMIN)  -  SUMDST)  .GT.  0.0)  GO  TO  301 
GO  TO  220 

DECREASE  SPAN  TO  OTHER  DECK  LONGITUDINALS  TO  PERMIT  CENTERING  SPAN 
ON  THE  CENTEKLINE. 

801  IOIFF  =  ILONGL  -  ICOONT  -  1 

XDIFF  =  IDIFF 

STEP  =  (0.5  *  W5BMIN  -  SUMDST)  /  XDIFF 

SPANt ILONGL)  =  0.5  *  W5BMIN 

ILONGL  =  ILONGL  -  1 

IRKED  =  ICOUNT  ♦  1 

DO  326  IA  =  IRKEO,  ILONGL,  1 

SPAN( IA)  =  SPAN! I  A)  -  STEP 
826  WRITE  (6,957)  IA,  SPAN  I  I  A  ),  1 1  , J  J 


-  35 


G  LEVEL  0,  MOO  0 


MAIM 


DATE  =  67132 


19/43/58 


228 


229 


227 


220 


C 
C 

c 
c 


230 


ILUMGL  = 
I A  =  ICO 
00  227  I 
00  227  J 
DSUM  =  D 
IF  ((SPA 
GO  TO  22 
IE  (JJ  . 
SUMDIF  = 
OIFF  =  S 
XLOMGL  ( 

1  PTDATA( 
XLOMGL  ( 

1  PTDATAt 
XLONGLt I 
XLOMGL( I 
WRITE(6, 
DSUM  =  D 
IA  =  IA 
GO  TO  22 
SUMO  IF  = 
DIFF  =  S 
XLOMGL  ( 

1  PTDATAt 
XLOMGL  ( 

1  PTDATAt 
XLOMGL ( I 
XLOMGL ( I 
WRITEtb, 
OSUM  =  D 
IA  =  IA 
CONTIMUE 
GO  TO  30 
IF  (SUMD 

DECREASE 
LOMGITUD 

IF  (SUMD 
BBDIST  = 
IA  =  ILO 
XIA  =  IA 
SPAM( ILO 
STEP  =  3 
ICQUMT  = 
DO  230  I 
SPAN  (  I  A 
ICOUMT  = 


ILUMGL 
UMT  >■     1 

I  =  20, 

J  =  If 

SUM  +  P 
N  (  I  A  )  - 

7 

eg.  io) 

DSUM  - 
P  AM ( I  A ) 
IA,   1) 

I  I  ,  JJ,  3 
IA,  2) 

II  f JJf 3 
A, 3)=  P 
A,4)  =  ? 
966)XL0 
SuM  -  S 
+  1 
7 

DSUM  - 
PAMt IA) 
IA,  1) 
II  f JJ,  J 
IA,  2) 
II  ,  JJ,  3 
4,3)=  P 
A, 4)  = 
966)XLU 
SUM  -  S 
*  1 


1 


29 
10 
TDATAt  I  I , JJ,3) 

OSUM)  .LT.  0.0) 


GO  TO  228 


GO  TO  229 

PTDATAt II, JJ, 3) 

-  SUMDIF 

PTDATA  (II,  JJ,  1J 
)  )  *  (  PTOATAd  I  ,  JJ  +  1,  1) 

PTDATA  (II,  JJ,  2) 
))  *  tPTDATAt I  I,  JJ+1, 2) 
TDATAt  II  ,  JJ,  1) 
TDATAt II , JJ,2) 

MGLt  I  A,  1)  , XLOMGL (  I  A, 2) ,XLOMGL(  I  A, 3) , XLOMGL (  I  A, 4) 
PAMt IA) 


+   (  DIFF   / 

-  PTDATAt  I  I,  JJ,1)  ) 
+   (  DIFF   / 

-  PTOATAd  I,  JJ,2)  ) 


PTDATA  (II,  JJ,  3) 

-  SUMDIF 

PTDATA  (II,  JJ,  1) 
)  )  *  (PTDATAtII+1,1,  1) 
PTDATA  (II,  JJ,  2) 
))  *  (PTDATA(II+1,1,2) 
TDATA(  I  I  ,JJ,1) 
PTDATAt II ,JJ, 2) 

MGLt I  A, 1) , XLOMGL ( I  A, 2) ,XLONGL( IA,3) ,XLUMGL(  I  A, 4) 
PAMt I  A) 


+   (  DIFF   / 
PTDATAt II ,JJ,  1)  ) 
+   (  DIFF   / 
PTDATAt II,JJ,2)  ) 


0 
ST 


.GT.  W5BMIN)  GO  TO  221 


SPAMS  TO  OTHER  DECK  LONG  I TUD IMAL S  TO  PERMIT  PLACIMG  A 
IMAL  OM  THE  DECK  CEMTERLIME. 

ST  .LT.  0.5*W5BTOL)  GO  TO  520 

W5BMIM  -  SUMDST 
NGL  -  ICOUNT  -  1 

MGL)  =  W5BMIN 
BDIST  /  XIA 

ICOUNT  +  1 
AI  =  ICOUMT,  ILUMGL 
I)  =  SPAM  (IAI)  -  STEP 

ICOUMT  -  1 


G  LEVEL  Of  HUD  0 


-  36  - 


M  A  I  N 


DATE'  =  67L32 


19/43/56 


238 


239 


237 


WRITE 
IA  = 

OU  2  3 
00  2j 
DSUM 
IF  (( 
GO  TO 
IF  (J 
SUMDI 
DIFF 
XLONG 

L  PTOA 
XLONG 

1  PTDA 
XLONG 
XLONG 
WRITE 
DSUM 
IA  = 
GO  TO 
SUMDI 
OIFF 
XLONG 

1  PTOA 
XLONG 

1  PIDA 
XLONG 
XLONG 
WRITE 
DSUM 
IA  = 
CONTI 
GO  TO 


(6,  9 
I  COUNT 
7  II  = 

7  jj  = 
=  DSUM 
SPAM  I 
237 

j  .Eg. 

F  =  US 
=  SPAN 
L  {  IA, 
TA(  II  , 
L  (  IA, 
TAt  II, 
L  (  I  A  ,  3 
L( IA,4 
( 6, 9s6 
=  DSUM 
IA  +  1 

2  37 
F  =  DS 
=  SPAN 
L  (  IA, 
TAIIIt 
L  (  IA, 
TAl  II  , 
L( IA,3 
L  (  I  A  ,  4 
( o , 966 
=  DSUM 
IA  +  1 
NUE 

300 


57)  IaI  ,  SPAM  iAl)  ,  II,  J  J 


ZO,     2  9 

1,  10 

+  PTOATA( II  ,  Jj,3) 

)  -  DSUM)  .LT.  0.0) 


GU  TO  233 


10)  GO  TO  239 
UM  -  PTuATA  (II, 
(IA)  -  SUMDIF 


JJ,  3) 


) 


) 


+   (  DIFF 

-  PTDATA( II 
+   (  DIFF 

-  PTDATAUI 


i)  =    PTDATA  (II,  JJ,  1) 
JJ,3))  *  (PTUATAU  I,  JJ+1,  1 

2)  =    PTUATA  (  II  ,  JJ,  2) 
JJ,3)  )  *  (PTDA1 A( I  I, JJ+1, 2 
)=  PTDATA( II , JJ,1) 
)  =  PTDATAUI  ,  JJ,2  ) 
)XLO,MGL(  I  A,  1)  ,  XL0NGL1  IA,2)  , XLGNGLt  I  A,  3) 

-  SPAM  I  A) 


1)  ) 


/ 

,  JJ, 

/ 
,  JJ,2)  ) 


XLCNGL(  I  A, 4) 


UM  -  PTDATA  (II,  JJ,  3) 
(IA)  -  SUMDIF 

1)  =  PTDATA  (II,  JJ,  I) 
JJ,3)  )  *  (PTDATA(  11  +  1,1,1) 

2)  =  PTDATA  (  II  ,  JJ,  2) 
JJ,3) )  *  ( PTDATAt 11+1,1,2) 
)=  PTDATA! I  I , JJ,1) 

)  =  PTUATAt I  I , JJ,2) 

)XLONGL(  I  A, 1) ,XLONGL(  IA,2) ,XLONGL(  IA,3) ,XLONGL(  IA,4) 
-  SPAN( IA) 


+   (  DIFF   / 
PTDATA( II ,JJ,  1)  ) 
+   (  DIFF   / 
PTOATA( II,JJ,2)  ) 


221 


SPAN  GREATER  THAN  W5BMIN,  PLACE  LONGITUDINAL  ON  THE  CENTERLINE. 

SPAM  ILONGL)  =  SUMDST 
XLONGLULONGL,!  )  =  PTDATA(30,1,  1) 


XLONGL( ILUNGL,2) 
XLONGL( ILONGL, 3) 
XLONGL( ILONGL, 4) 


=  PTDATA(30,  1,  2) 

=  PTDATA(30,1,  1) 

=  PTDATA(30,  1,  2) 
WRITE(6,966)XLU,MGL(  ILGNGLU  ),XLONGL(  I  LONGL  ,  2  )  ,  XLONGL  (  IL0NGL,3), 
1  XLONGL( ILONGL, 4) 
GO  TO  300 

CURRENT  LONGITUDINAL  PLACEMENT  OK.   CENTER  SPAN  ON  CENTERLINE. 

520  SPANULONGL)  =  SUMDST 


LEVEL  0,  MOO  0 


-  37  - 


MAIN 


DATE  =  67132 


19/43/53 


C 
C 

c 


GO  TO  300 
200  CONTINUE 

CALCULATE  THE  REQUIRED  LUNG  I TUO  iiMAL  SCANTLING. 

300  DO  310  I  =  1,  5 

310  XLNGTL(ltl)  =XLGTNL(9,I) 

WRITE  16,  9  12  J 

DO  20b  III  =  2,  40 

IF  (SPAN(III)  .GT.  0.0)  GO 

SPAN( III)  =  0.0 

IF  (SPAN! Ill  -  1 )  .GT 

XLONGLt  111,1)  =  0.0 

XLGNGL(  I  11,2)  =  0.0 

XLONGL( 111,3)  =  0.0 

XLONGLI I  II ,4)  =  0.0 
206  WRITE (6, 911)  II I,XLONGL( 111,1) ,XLUNGL(  111,2)  ,XLGNGL( 111,3), 
1  XLGNGLt 111,4) , SPAN (I  I  I )  ,SMODMN( III) 

SATISFY  REQUIREMENTS  AS  TO  MINIMUM  RADIUS  OF  GYRATION. 


TO  2  06 


0.0)  GO  TO  20o 


J  = 

DO 

IF 

IF 

IF 


1 
320  I  =  1,  40 
(SPAN(I)  .EQ. 
(XLUNGLl I »2) 
{ 12.0*SPAN< I ) 


NL(J,3)  +  0.5  *  AAA  *  (THL**2) 


0.0)  GO  TO  323 
EQ.  0.0)  GU  TO  323 
.GT.  50.*TH1)  GO  TO  322 
AAA  =  12.0  *  SPAN! I  ) 
GO  TO  321 
322  AAA  =  50.*TH1 

321  FF  =  (XLGTNLU,4)  +  TH1)  *  XLC 
FFF  *  XLGTNLU,3)  +  TH1  *  AAA 
CGCG( I)  =  FF/FFF 
WRITE  16,  960)  I,  CGCG(I) 

XMINERII)  =  XLGTNL(J,1)  +  XLGTML ( J , 3 ) * ( ( XLGTNL ( J , 4 ) -CGCGI I ) ) **2 ) 
1  0.0d333*AAA*(THl**3)  *■  TH1  *A  AA*  (  (  CGCGI  I  )-0  .  5*TH1  )  **2  ) 
RGYR  =  SQRT  (XMINER(I)  /  FFF) 
WRITE  (6,  961)  J 

IFIR5GYRA  .LT.  RGYR)  GO  TO  320 
J  =  J  +  1 
GO  TO  321 
320  CONTINUE 


SATISFY  REQUIREMENTS  AS  TO  STIFFENER  STRENGTH. 


323 


EFSPAN  =  0.577  *  FRM  * 
DVALUE  =  (  13392.857  * 
STALL  =  38000.  /  2240. 
DO  324  I  =  1,  40 


12.0 

{ TH1**3) ) 


/  10 


3  LEVEL  0,  MOO  0 


-  3c  - 


MAIN 


DATE 


67132 


19/43/53 


329 


325 

326 


327 

323 


IF  (SPAN! 
IF  (XLONG 

IF( ( (XLGT 
ARM  =  CGC 
GO  TO  326 
ARM  =  XLG 
IF  112.0* 
AAA  =  12. 
GO  TO  328 
AAA  =  50. 
CALL  HDWT 

1  XLONGLU 
WRITE  (6, 
PRESS  =  G 
BMOMNT  = 
ST1EST  = 
ST2ALL  = 
REQMQD  = 
XMlNERt  I  ) 

1  0.08333* 
WRITE  (6, 
IF(  (XMINE 
IF  UXMIN 
1324  J  =  J  +  1 
WRITE  (6, 
GO  TO  329 
324  CONTINUE 


I ;  .  eq.  o.o J  go  ro  453 

L( I »2)  .EQ.  0.0)  GO  TO  45  3 

ML (J, 5)  +  TH1)  -  CGCG(I))  .LT.  CGCG1IM  GO  TO  325 

G(  I  ) 

TNLI Jf  5)  +  TH1  -  CGCG(  I ) 
SPAN(I)  .GT.  50.*TH1)  GO  TO  327 
0  *  SPAIM(I) 

0  *  TH1 

K(A3  HE  EL, XLONGLU,!)  , 01 , HI AMOK , HI OF L , N3ELT S , XL  1 3P , 

,2)  ,m) 

958)  I,  HM 
.445  *  HM/224C. 

215.  *  PRESS  *  SPAN(I)  *  FRM**2 
7.93  *  A3S( XLONGLl I, 2)-( ( 7. 93/13. 93)^26.23125) ) 
STALL  -  ST1EST 
BMUMNT  /  ST2ALL 

=XLGTNL( J, 1)+XLGTNL( J,3)*l ( XLGTNL( J,4)-CGCG( I ) )**2) ' + 
AAA*(TH1**3)  +  TH1*AAA*UCGCG(  I  )-0.5*THl  )**2) 

961)  J 
K(  I) /ARM) ,LT.SMODMN(  I)  )  GO  TO  1324 
ERU)/ARM)  .GT.  REQMQO)  GO  TO  324 

961)     J 


453 


336 


337 

338 


SATISFY    REQUIREMENTS    AS    Tu    SUFFENER    CRITICAL    STRENGTH. 

DO  330  I  =  i,  40 

IF  (SPANCI)  .EQ.  0.0)  GO  TO  451 
IF  (XLONGLU, 2)  .EQ.  0.0)  GO  TO  451 
IF  ( 12.*SPAN( I)  .GT.  50.*TH1)  GO  TO  337 
AAA  =  12.0  *  SPAN( I ) 
GO  TO  338 
AAA  =  50.0  *  TH1 

XMINERU  )=XLGTNL(  J,  1) +XLGTNL ( J , 3 ) *{ ( XLGTNL ( J , 4 ) -CGCG (  I) )**2) 
1  0.08333*AAA*(TH1**3)  +  TH1*AAA*< (CGCG( I )-0 .5*TH1 )**21 
8VALUE  =  13392.857  *  XMINER(I) 
BETA  =  FRM  /  SPANl I) 

GAMMA  =  BVALUE  /  (SPAN(I)  *  12.  *  DVALUE) 
OELTA  =  XLGTNL(J,3)  /  (12.0  *  SPAN(I)  *  TH1 ) 
SUMTN  =  { (3.1416**2)*DVALUE)/(144.  *  TH1  *  SPAN(I)**2) 
6ETAPL  =  1.0  +  BETA**2 

ST1EST  =  7.93*  AbS ( XLONGL ( I , 2 ) - I ( 7 . 9 3/ 13. 93 ) *26 . 2 3  1 25  )  ) 
CRITST  =  1.25  *  (ST1EST  +  ST2EST) 
TOLSTR  =  SUMTN  *  (BETAPL**2  +  4.0*GAMMA)  /  (  (  BETA**2)*U  .0  + 


-  39  - 


G  LEVEL  0,  MOO 


MAIN 


OATE  =  67132 


19/43/53 


330 
451 


335 


340 
810 


I ,  XMINERl I) 
CRITST)  GU 


33< 


1  4.0  *  DELTA) } 
WRITE  (5,  959) 
IF  ITQLSTR  .GT 

J  =  J  +  1 

WRITE  (6,  961)  J 

GO  TU  336 

CONTINUE 

WRITE  (6,  961)  J 


CALCULATE  THE  TOTAL  MOMENT  OF  INERTIA  OF  THE  MIDSHIP  SECTION. 


CAL 
WEI 
DO 
XLN 
K  = 
SLO 
III 
ZPO 
BAS 
WRI 
DO 
IF 
IF 
IF 
IF 
BAS 
GO 
1811  CON 
SLO 
III 
ZPO 
BAS 
WRI 
ARE 
BLM 
XMO 
K  = 
ADI 

1)  - 
XMO 
BLM 
ARE 
DO 
IF 
IF 
ADI 

I)  - 


L  PMIN 
GHT  = 
335  I 
GTL(2, 

1 
PE2U) 

=  XLN 
INT  = 
EMT(K) 
TE  (6, 
340  K 
(K  .GT 
(XLONG 
(K  .LT 
(K  .GT 
EMTIK) 
TO  340 
TINOE 
PE2(K) 

*  XLN 
INT  = 
EMT(K) 
TE(6, 
APT  = 
OM  =  b 
MIN  = 

1 
NER  = 

XLNGT 
MIN  = 
OM  =  6 
APT  = 
350  K 
(XLONG 
<K  .GT 
NER  = 

XLNGT 


ER( TH1 ,6LM0M, AREAPT, XM0MIN,XINER ) 

6.8  *  AREAPT 

=  1,  5 

I )  =  XLGTNLt J, I ) 


=  ( 

GTL( 

XLON 

=  Z 

962 

=  2, 

.  IL 

L(K, 

.  IC 

.  IC 

=  0 


XLONG 
1,4)* 
GL(K, 
POINT 
)  K, 

40 
ONGL) 
2)  .E 
OUNT) 
OUNT) 
.0 


L( Kt 3) -XLONGL (K, 1) ) / { XLONG L ( K, 2 ) -XLONGL ( K, 4 ) ) 
(-SL0PE2(K) )/( 12.*SQRT( 1 . + { SL0PE2 ( K ) **2 ) ) ) 
2)  +  III 

BASEMT(K) 


GO  TO  810 
Q.  0.0)  GO  TO 
GO  TO  1811 
GO  TO  1811 


810 


=  (XLONGLtKf 3)-XL0NCL:;m  1)  )/( XLONGL ( K , 2 ) -XLONGL ( K , 4) ) 
GTL(2,4)#(-SL0PE2(K) >/< 12.*SQRTI 1 .+ ( SL0PE2 ( K ) **2 > ) I 
XLGNGL(K,2)  +  ZZZ 

=  ZPO I  NT 
962)  K,  BASEMT(K) 
2.0  *  AREAPT 
LMOM  *  2.0 
2.0  *  XMOMIN 


(XLMGTL( 1, 1 


XLNGTL(1,3)*BASEMTU)**2  +  XLNGTH  1  ,  2  ) /144  .  + 

L( 1,2) )*2.*ABS( ATAN(SL0PE2(K))/( 144.* 3. 1416) ) 

XMOMIN  *■  AD  I  NER 

LMOM  ♦  BASEMTiK)*XLNGTLUt3) 

AREAPT  +  XLNGTL(1,3) 

=  2,  40 

L(K,2)  .EQ.  0.0)  GO  TO  351 

.  ILONGL)  GO  TO  351 

XLNGTL(2,3)*BASEMT(K)**2  +  XLNGTL ( 2 , 2 ) / 1 44 .  +  (XLNGTL(2,1 

L(2,2))*2.*A3S(ATAN(SLQPE2(K))/(144.*3.1416)) 


LEVEL  0,  MOO  0 


-  kO   ~ 


MAIN 


DATE  =  67132 


19/43/5d 


■S^3 


352 


350 
351 


807 


600 
804 

806 


IF  (K  . 
IF  (K  . 
XMOMIN 
BLMOM  = 
ARE  APT 
GO  TU  3 
IF  (XLU 
XMOMIN 
BLMOM  = 
AREAPT 
CONTINU 
ZNAXIS 
XINER  = 
REQMIN 
00  807 
IF  (SPA 
SPAN  UK 
CONTINU 
IR  =  1 
WRITE  ( 
00  600 
WRITE  ( 
WRI TE  (6 
00  806 
WRI TE(6 
1  XLONGL 
WRITE  ( 
WRITE  ( 
WRITE  ( 
ASTRSS 
WRITE  ( 
WRITE  { 
tiSTRSS 
WRITE  ( 


EQ.  ILONGL)  GO  TO  M2 
EQ.  LCOONl J  GO  TO  350 

=  XMOMIN  +  2.0  *  AOINER 

3LM0M  +  2.0  *  BASEMT(K)*XLNGTL(2*3) 
=  AREAPT  +  2.0  *  XLNGTL(2t3) 
5C 

INJGLt  ILONGL,  1  )  .GT.  0.0)  GO  TU  353 
=  XMOMIN  +  AOINbK 

BLMOM  +  BASEMTIKJ  *  XLNGTH2,  3) 
=  AREAPT  +  XLNGTH2,  3) 
E 
=  BLMOM  /  AREAPT 

AbS  (ZNAXIS*( {BLMGM**2)  -  AREAPT*XMOMIN)/BLMOM) 
=  74100.  *  2b. 231247  /  13.93 
KK  =  1,  40 

NUK)  .GT.  0.0)  GO  TO  807 
)  =  CO 


6,  93  3)  IR,  SPANl IR) 

IR-  2,  40 

6,  934)  IR,  SPAN(IR) 

,912) 

KK=  1,  40 

,911 )  KK,XLGNGL(KK, 1) , XLONGL ( KK, 2 ) , XLONGL ( KK , 3  ) , 

(KK,4),SPAN(KK) rSMODMN(KK) 

6.915)  REQMIN 

6.916)  XINER 

6.917)  ST1CRK 

=  74100.  *  ZNAXIS  /  XINER 

& , 918}  ASTRSS 

6,919  J  ST1CR0 

=  54400.  *  (26.231247  -  ZNAXIS)  /  XINER 

6,  920)  BSTRSS 


AOO  IN  THE  WEIGHT  CONTRIBUTION  OF  THE  MAIN  TRANSVERSE  FRAMES 
=  AREAPT  *  3.4  +  2859.*(1.G  +  ( 0 . 8333* ( FRM-8 . ) /8  .  ) )  / 


WT0TL3 
1  (FRM) 
WFRAME 
WTOTAL 
WRITE 
WRITE 
WRITE 
WLONGL 
WRITE 
WRITE 
WRITE 


=  WT0TL3  -  3.4  *  AREAPT 

=  WT0TL3  /  2240. 
(6,9213  WTOTAL 
(6,922)  /JT0TL8 
(6,  1921)  WEIGHT 

=  WT0TL3  -  WEIGHT  -  WFRAME 
(6,  1922)  WLONGL 
(6,1923)  WFRAME 
(6,  923)  ZNAXIS 


-  hi  - 


G  LEVEL  Of  MOD  0 


MAIN 


DATE  =  67L32 


19/43/53 


WRITE  (6,928)  J , XLNGTL (2, 3) ,XLNGTL{ 2 , 5 ) 
WRITE  (6,929)  XLNGTL( 1 , 3) >XLNGTL( 1 , 5 ) 

rtRlTE  (6,  963)  THI 

IF  (ST1CRK  .LT.  ASTRSS)  GU  TG  421 
IF  (ST1CRD  .GT.  3STRSS)  GO  TO  500 
421  ATH1  =  THI 

WRITE  (6,  92^) 

IF  (THI  -  0.5)  401,  402,  403 

402  THI  =  0.625 
GO  TO  400 

403  IF  (THI  -  0.875)  404,  405,  40b 

405  THI  =  0.9375 
GO  TO  400 

406  IF(TH1  -  0.9375)  405,407,408 

407  THI  =  1.0 
GO  TO  400 

408  rtRITE     (6,     926) 
GO    TO    420 

401     IF(TH1    -    0.3125)     409,    410,    411 

410  THI  =  0.34375 
GO  TO  400 

409  IF  (THI  -  0.28125)  412,  413,  410 

413  THI  =  0.3125 
GO  TO  400 

412  THI  =  0.28125 
GO  TO  400 

411  IF  (THI  -  C.375)  414,  415,  416 

415  THI  =  0.4375 
GO  TO  400 

414  THI  =  0.375 
GO  TO  400 

416  THI  =  0.500 
GO  TO  400 

404  IF(TH1  -  0.75)  417,  413,  405 
418  THI  =  0.875 

GO  TO  400 

417  THI  =  0.75 
GO  TO  400 

420  STOP 
END 


-   h2  - 


Determine 
Till,   W5BA.CT 


Locate  shell 
longitudinals, 
calculate  re- 
quired scantlings 


Check  span  to 
deck  edge.   If 
too  small,  reduce 
other  spacingj 


Locate  deck  lon- 
gitudinals, cal- 
culate required 
scantlings 


k) 


Calculate  plating  thick- 
ness, maximum  span  to 
first  longitudinal. 


Locate  shell  longitudi- 
nals. 


Adjust  locations  if 
necessary. 


Locate  deck  longitudi- 
nals. 


FIGURE  III 


MAIN  PROGRiU-i  RUiTSCCRS  FLOW  CHART 


Check  span  to  center- 
line.   Either  place 
long'l  on  centerline  or 
have  centerline  at  mid- 
span.  If  necessary,  re- 
duce other  SDacinrs. 


Select  long1!  to 
give  needed  radi- 
us of  gyration 


Check  for  ade- 
quate stiffener 
strength 


Check  for  ade- 
quate stiffener 
critical  strength 


9 


Adjust  locations  if 
necessary. 


Satisfy  requirements 
as  to  minimum  radius 
of  gyration. 


Satisfy  requirements 
as  to  stiffener 
strength. 


Satisfy  requirements 
as  to  stiffener 
critical  strength. 


FIGURE  III  -  Continued 


-  Mf  - 


^ 


Calculate  total 
section  moment  of 
Inertia,  area,  and 
weight 


Calculate  actual 
primary  compres- 
sive stresses 


C      STOP"  V^ 


Increment  TEL 


9 


Check  total  section 
characteristics. 


Check  for  adequacy  of 
midship  section. 


If  stresses  are  too 
great,  increase  plat- 
ing thickness j  repeat 
calculation. 


FIGURE  III  -  Continued 


-  ^- 


J 

PT0ATA( I r  J , 1 ) 

PTDATA( I, J, 2) 

PTOATA( 

1 

0.0 

0.0 

0.  20 JC5o 

2 

0.200000 

0.004743 

0.200057 

3 

0.4C00G0 

0,009515 

0.2OC053 

4 

O.&OOOCC 

0.014343 

0.200060 

5 

0.800000 

0.019255 

0. 200063 

6 

1.000000 

0.024282 

0.2  0006  7 

7 

1.200000 

0.029449 

0.200071 

8 

1.400000 

0.034787 

0.200075 

9 

1.599998 

0.04032  2 

0.20  00  83 

10 

1.799997 

0.046084 

0. 2000  9  2 

2 

1 

2.000000 

0.052099 

0.20U099 

2 

2 

2.200000 

0.058402 

0.200110 

2 

3 

2.400000 

0.065033 

0.200121 

2 

4 

2.599996 

0.072036 

0.200138 

2 

5 

2.799997 

0.079464 

0.200155 

2 

6 

2.999997 

0.087355 

0.200177 

2 

7 

3.199999 

0.095758 

0.200200       s 

2 

8 

3.399999 

0.104715 

0.200227 

2 

9 

3.599998 

0.114281 

0.200260 

2 

10 

3.799996 

0.124493 

0.200300 

3 

1 

4.0000C0 

0.135401 

0.400720 

3 

2 

4.40000C 

0.159419 

0.400908 

3 

3 

4.799997 

0.18640  7 

0.401122 

3 

4 

5.199999 

0.216375 

0.4013  54 

3 

5 

5.599998 

0.249332 

0.401612 

3 

6 

5.999996 

0.285289 

0.4018  94 

3 

7 

6.399998 

0.324254 

0.402196 

3 

8 

6.799995 

0.366238 

0.402525 

3 

9 

7.199997 

0.411250 

0.402875 

3 

10 

7.599997 

0.459301 

0.403255 

4 

-  1 

8.000000 

0.510412 

0.403664 

4 

2 

8.400000 

0.564682 

0.404182 

4 

3 

8.799997 

0. 622665 

0.404840 

4 

4 

9.199999 

0.685097 

0.405653 

4 

5 

9.599998 

0.752593 

0.406652 

4 

6 

9.999996 

0.825849 

0.407861 

4 

7 

10.399998 

0.905538 

0.409308 

4 

8 

10.799995 

0.992337 

0.411031 

4 

9 

11.199997 

1.086922 

0.413059 

4 

10 

11.599997 

1.  189965 

0.415431 

5 

1 

12.00CG00 

1.302128 

0.203281 

5 

2 

12.194790 

1.360265 

0.203980 

5 

3 

12.389580 

1.420801 

0.204727 

5 

4 

12.584370 

1.483809 

0.205523 

5 

5 

12.779160 

1.549357 

0.206371 

5 

6 

12.973948 

1.617520 

0.207274 

5 

7 

13.168737 

1.688371 

0.208232 

5 

8 

13.363527 

1.761974 

0.209250 

5 

9 

13.558317 

1.838410 

0.210327 

5 

10 

13.753109 

1.917747 

0.210916 

6 

1 

13.947900 

1.998631 

0.224035 

6 

2 

14.153110 

2.088647 

0.225563 

6 

3 

14.358317 

2.182284 

0.227193 

6 

4 

14.563527 

2.279781 

0.229008 

6 

5 

14.768739 

2.381433 

0.230972 

6 

6 

14.973948 

2.487440 

0.233151 

6 

7 

15.179156 

2.598112 

0.235502 

6 

8 

.15.384360 

2.713654 

0.236C73 

6 

9 

15.589576 

2.834351 

0.240840 

6 

10 

15.7947o5 

2.960419 

0.250531 

7 

1 

16.000000 

3.104218 

0.141439 

7 

2 

1.6    117676 

3.1826C  i 

0.142650 

J,  3) 


i   /-im  r\_ 


( 

<* 

lO.JDiiiy 

.  ,       J. 3461^6 
•  h6   -3.431501 

U  .  1  4  6  5  9  6 

7 

5 

16.470610  ' 

0.147028 

7 

6 

16.538301 

3.519606 

0.149104 

7 

7 

16.70o238 

3.611115 

0. 150991 

7 

8 

16.823929 
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9 
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7 

10 

17.05935.7 
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8 
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17.  176529 

4.000000 

0.293343 
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2 

17.391129 

4.200000 

0.2 6 76  Id 

8 

3 

17.597809 

4.400000 

0.282204 

8 

4 

17.796921 

4.599998 

0.277075 

8 

5 

1  7.98cl67o 

4.799997 

0.272213 

8 

6 

18.173340 

4.999997 

0.267623 

8 

7 

18.351166 

5. 199999 

0.263299 

8 

8 

18.522400 

5.399999 

0.259253 

8 

9 

18.687376 

5.599998 

0.255442 

8 

10 

18.846263 

5.799996 

0.252135 

9 

1 

18.999876 

6.000000 

0.194464 

9 

2 

19.115662 

6.156250 

0.192440 

9 

3 

19.227997 

6.312500 

0. 190448 

9 

4 

19.336804 

6.468750 

0.188472 

9 

5 

19.442261 

6.62500C 

0.186540 

9 

6 

19.544159 

6.781250 

0.184647 

9 

7 

19.642563 

6.937500 

0.182745 

9 

8 

19. 737320 

7.093750 

0.180912 

9 

9 

19.826522 

7.250000 

0.179094 

9 

10 

19.916031 

7.406250 

0.176460 

10 

I 

19.998047 

7.562500 

0.0493  3  3 

10 

2 

20.020844 

7.606250 

0.049214 

10 

3 

20.043361 

7.650000 

0.049094 

10 

4 

20.065659 

7.693748 

0.048999 

10 

5 

20.087723 

7.737497 

0.048896 

10 

6 

20.109543 

7.781247 

0.043836 

10 

7 

20.131241 

7.824999 

0.048767 

10 

8 

20.152802 

7.868749 

0.04869!* 

10 

9 

20. 174164 

7.912498 

0.048647 

10 

10 

20.195450 

7.956246 

0.049736 

11 

1 

20.219101 

8.000000 

0.221883 

11 

2 

20.315186 

8.200000 

0.221194 

11 

3 

20.409668 

3.400000 

0.220430 

11 

4 

20.502350 

8.599998 

0.219592 

11 

5 

20.593018 

8.799997 

0.218688 

11 

6 

20.681473 

8.999997 

0.217743 

11 

7 

20.767563 

9.199999 

0.216706 

11 

8 

20.850998 

9.399999 

0.215634 

11 

9 

20.931595 

9.599998 

0.214540 

11 

10 

21.009247 

9.799996 

0.213229 

12 

1 

21.083176 

10.000000 

0.212228 

12 

2 

21.154175 

10.200000 

0.211168 

12 

3 

21.221924 

10.400000 

0.210194 

12 

4 

21.286606 

10.599998 

0.209312 

12 

5 

21.348343 

10.799997 

0.208509 

12 

6 

21.407303 

10.999997 

0.207792 

12 

7 

21.463669 

11.199999 

0.207150 

12 

8 

21.517624 

11.399999 

0.206576 

12 

9 

21.569336 

11.599998 

0.206064 

12 

L0 

21.618958 

11.799996 

0.205580 

13 

1 

21.666504 

12.000000 

0.256441 

13 

2 

21.723633 

12.250000 

0.255659 

13 

3 

21.778061 

12.500000 

0.255320 

13 

4 

21.829926 

12.750000 

0.254806 

13 

5 

21.879181 

13.000000 

0.254342 

13 

6 

21.925930 

13.250000 

0.253905 

13 

7 
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13 

8 
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22.124873- 

**7  -  14.500000 

0.  151343 

14 

2 

22.145035 

14.650000 

0.151Z47 

14 

-i 

22.  16<t429 

14.799997 

0.151147 

14 

4 

22.  183014 

14.94999V 

0.151059 

14 

5 

22.200882 

15.099998 

0.150970 

i4 

6 

22.217972 

15.249996 

0.150882 

14 

7 

22.234253 

15  .399998 

0.150799 

14 

8 

22.249756 

15.549995 

0.150726 

14 

9 

22.264542 

15.699997 

0. 150649 

14 

10 

22.278519 

15.849997 

0.150584 

15 

1 

22.291733 

16.000000 

0.200665 

15 

2 

22.308075 

16.199997 

0.200564 

15 

3 

22.323166 

16.399994 

0.200475 

15 

4 

22.337006 

16.599991 

0.200399 

15 

5 

22.349686 

16.799988 

0.200334 

15 

6 

22.361298 

16.999985 

0.200279 

15 

7 

22.371933 

17.199982 

0.200235 

15 

8 

22.381699 

17.399979 

0.200195 

15 

9 

22.390610 

17.599976 

0.200165 

15 

10 

22.393804 

17.799973 

0.200165 

16 

1 

22.406235 

18.000000 

0.200118 

16 

2 

22.413193 

18.199997 

0.200099 

16 

3 

22. 419D71 

18.399994 

0.200080 

16 

4 

22.425339 

13.599991 

0.200064 

16 

5 

22.430527 

18.799988 

0.200049 

16 

6 

22.435074 

18.999985 

0.200035 

16 

7 

22.438965 

19.199982 

0.200023 

16 

8 

22.442200 

19.399979 

0.200013 

16 

9 

22.444748 

19.599976 

0.200006 

16 

10 

22.446671 

19.799973 

0.200029 

17 

1 

22.447342 

20.000000 

0. 199998 

17 

2 

22.447861 

20.199997 

0.199997 

17 

3 

22.447678 

20.399994 

0.199999 

17 

4 

22.446369 

•  20,599991 

0.200002 

17 

5 

22.445450 

20. 799938 

0.200006 

17 

6 

22.443497 

20.999985 

0.20u012 

17 

7 

22.441010 

21.199982 

0.200019 

17 

8 

22.438019 

21.399979 

0.200025 

17 

9 

22.434647 

21.599976 

0.200033 

17 

10 

22.430832 

21.799973 

0.200072 

18 

1 

22.426590 

22.000000 

0.200047 

18 

2 

22.422104 

22.199997 

0.200054 

18 

3 

22.417328 

22.399994 

0.200060 

18 

4 

22.412308 

22.599991 
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18 

5 

22.407120 

22.799988 
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18 

6 

22.401764 
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18 

7 

22.396373 
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18 
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22.390854 
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18 

9 
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23.599976 
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10 

22.379944 
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22.352753 
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25.757721 

0.223827 

23 

7 
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6.  C32481 

5.809045 

5.585o07 

5.3621oo 

5.  13872b 
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4.691854 
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4.244977 
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.143372 
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.15571b 

.161591 

.16720o 

.172577 

.177765 

.182653 

.18737U 

.191349 

.196091 
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.203827 
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.213659 
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.0 

.0 

.0 
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.0 

.0 

.0 

.0 


0.22 
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0.22 

0.22 

0.22 
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0.22 

0.22 

0.22 

0.22 

0.22 

0.22 

0.22 

0.22 

0.22 

0.22 

0.22 

0.22 

0.22 

0.22 
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0.22 

0.22 
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0.0 

0.0 
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0.0 

0.0 
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0.0 
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3540 
3534 
3526 
3521 
3516 
3509 
3502 
349  3 
3493 
3487 
3483 
3479 
3473 
3469 
34ob 
34b3 
3459 
3455 
3453 
3451 
3448 
3445 
3444 
3443 
3440 
3439 
343  9 
3438 
3090 


I  MAX.     I. 

1  10.56C399 

2  17.253708 

3  21.999649 

4  32.151^89 

5  47.027786 

6  64.334717 

7  246.921356 

8  393.407471 

9  1309.426758 


MIN.  I. 

1.404570 

5.149980 

L. 267670 

2.691560 

3.848550 

1.357309 

12.129780 

17.171539 

91.923447 


AREA 
2.5^7919 
4.553559 
2.935920 
4.423200 
4.322120 
3.913119 
8.529169 
10.761560 
20.686417 


VCG 

4.102559 

4.275189 

5.179449 

5.261410 

6.916630 

7.419299 

10.944189 

12.175449 

16.908249 


DEPTH 

6.000000 

6.000000 

8.000000 

8.000000 

9.000000 

12.000000 

16.000000 

18.000000 

24.000000 


ST1CRK 

ST1CR0 

-  *0  - 
ST2EST           SGMULT 

SGMYLO 

7.929999 

6.000600 

1.339286       20.962132 

20.932132 

W5BMIN 

- 

2 

.•000000    FRM 

a.ooooco 

INTERI. 

1  T. 

HI 

= 

C  , 

343  7  50  AND 

W5 

3ACT  a   2.152113 

53ACT  = 

2 

.162113 

W5BPRC  = 

2 

,lo2113    W33TUL  =   0.0 

I  =   1 

J 

= 

1 

SUMDST 

= 

0.200056 

I  =   1 

J 

= 

2 

SUMO ST 

= 

0.400113 

I  =   1 

J 

= 

3 

SUMDST 

= 

0.600171 

I    -       ]_ 

J 

= 

4 

SUMDST 

= 

0.600231 

I  =   I 

J 

= 

5 

SUMDST 

= 

1.000294 

I  -   1 

J 

= 

6 

SUMDST 

= 

1.200360 

I  =   1 

J 

= 

7 

SUMDST 

= 

1.400431 

I  =   1 

J 

= 

8 

SUMDST 

= 

1.600505 

I  =   1 

J 

= 

9 

SUMDST 

= 

i. 800588 

I  =   1 

J 

= 

10 

SUMDST 

= 

2.000679 

1=2 

J 

= 

1 

SUMDST 

= 

2.200778 

Y  =   2.161354   Z  =   0.057184   YPR  =   2.000000   ZPR  =   0.052099 

CLONGL  OUTPUT  =    3.09o774       10.107035        2.161354        0.057184 

W5BACT  =   2.162113    W5BPRC  =   2.162113    W56T0L  =   0.0 

SPAN(  1J   =    2.162113    I  =   2   J  =   1 


W5BACT  =   2.162113 


2 
2 
2 
2 
2 
2 
2 
2 
2 
3 


2 

3 

4 

5 

6 
7 

9 

10 
1 


W5BPRC  = 
SUMDST 

SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 
SUMDST 


2.162113 
0.238775 
0.438896 
0.639034 
0.639189 
1.039365 
1  .239564 
1.439791 
1.640050 
1.840349 
2.241069 


rt53T0L  =   2.  166965 


Y    =       4.326030       Z    =       0.154977  YPR    =       4.000000       ZPR    =       0.135401 

CLONGL    OUTPUT    =          3.096774  10.029916                     4.326030                     0.154977 

W5BACT    =       2.162113          W56PRC    =  2.1669t>5          W5BTOL    =       2.166965 

SPAN(     2)       =          2.166965           I     =  3       J    =       1                                                   v 


W56ACT  =  2.162113 

=  3  J  =  2 

=  3  J  =  3 

=  3  J  =  4 

=  3  J  =  5 

=  3  J  =  6 

=  3  J  =  7 


W5BPRC  =   2.166965    W5BTUL  =   2.175280 

SUMDST  =  0.475011 

SUMOST  =  0.87bl33 

SUMDST  =  1.277487 

SUMDST  =  1.679098 

SUMDST  =  2.080992 

SUMDST  =  2.483188 


Y  =   6.493771  I    =   0.334096  YPR  =   6.399998   ZPR  =   0.324254 

CLONGL  UUTPUT  =    3.096774        9.390423        6.493771        0.334096 

W53ACT  =   2.162113    W5BPRC  =  2.175280    W5BTOL  =   2.175280 

SPAM  3)   =    2.175280    I  =  3   J  =   7 


I    = 

3 

J 

=       d 

I    = 

3 

J 

=       9 

I    = 

3 

J 
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J 
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SUMDST  =   L.  113308 

SUMDST  =   L. 516562 

SUMDST  =   1.920226 

SUMDST  =   2.32440a 

Y  =   8.667541  1     -   0.603478   YPR  =   8.400000   Z^K  =   0.564682 

CLONGL  OUTPUT  =    3.096/74        9.684793        d.6o7541        0.to0347d 

W53ACT  =   2.162113    W5BPRC  =   2.190565    W58TUL  =   2.190565 

SPANl  4)   =    2. 1905^5    I  =  4   J  =   2 

W56ACT  =   2.162113    W53PRC  =   2.190565    W5BTDL  =   2.213699 

1=4     J  =   3      SUMDST  =   0.538662 

1=4     J  =   4      SUMDST  =   0.944335 

L  =   4     J  =   5      SUMDST  =   1.350987 

1=4     J  =   6      SUMDST  =   1.758848 

1=4     J  =   7      SUMDST  =   2.163156 

1=4     J  =   8      SUMDST  =   2.579186 

Y  =  10.d44317   Z  =   1.002617   YPR  =  10.799995   ZPR  =   0.992337 

CLONGL  OUTPUT  =    3.096774        9.383797       10.844317        1.002817 

W58ACT  =   2.162113    W5BPRC  =   2.213699    W5BTUL  =   2.213699 

SPAN(  5)   =    2.213o99    I  =  4   J  =   8 

H53ACT  =   2.162113    *53PRC  =   2.213699    W58TGL  =   2.248323 

=4     J  =   9      SUMDST  =   0.778546 

=4     J  =  10      SUMDST  =   1.193976 

=5     J  =   1      SUMDST  =   1.397257 

=5     J  =   2      SUMDST  =   1.601236 

=5     J  =   3      SUMDST  =   1 .805963 

=5     J  =   4      SUMDST  =   2.011485 

=5     J  =   5      SUMDST  =   2.217855 

=   5     J  =   6      SUMDST  =   2.425129 

Y  =  13.002581   Z  =   1.627934   YPR  =  12.973948   ZPR  =   1.617520 

CLONGL  OUTPUT  =    3.096774        8.945485       13.002581        1.627934 

tf5BACT  =   2.162113    W5BPRC  =   2.248323    W5BT0L  =   2.248323 

I  =  5   J  =   6 

*(5BPRC  =   2.248323    W5BT0L  =   2.303361 

SUMDST  =   0.385037 

SUMDST  =   0.594287  . 

SUMDST  =   0.804614 

SUMDST  =   1.015530 

SUMDST  =   1.239614 

SUMDST  =   1.465177 

SUMDST  =   1.692369 

SUMDST  =   1.921377 

SUMDST  =   2.152349 

SUMDST  =   2.385499 

Y  =  15.106862   Z  =   2.559123   YPR  =  14.973948  ZPR    =   2.487440 

CLONGL  OUTPUT  =    3.096774        8.326877       15.106362        2.559123 
W53ACT  =   2.162113    W5GPRC  =   2.303361    W58T:i'_  =   2.303361 
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6) 

2 

2. 
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I    = 
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J 
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6 

J 
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5 
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6 

J 
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o 

SPAM 

7) 
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2. 

3033 

61    I  = 

o 

J  =   & 

W53ACT 

= 

2.1c 

.2113 

ri5BPRC  = 

2 

-  52  - 

.303361'    W5BTUL  = 

2.387387 

I  = 

6 

J 

= 

7 

SUMDST 

= 

0.317640 

J   s 

6 

J 

= 

8 

SUMOST 

= 

0.555713 

I  = 

6 

J 

= 

9 

SUMDST 

= 

0.796553 

I  = 

6 

J 

= 

10 

S  J. MOST 

= 

1.047133 

I  = 

7 

J 

= 

I 

.  SUMOST 

= 

1.  188572 

I  = 

7 

J 

= 

2 

SUMOST 

= 

1.331222 

I  = 

7 

J 

= 

3 

SUMOST 

= 

1.4  75191 

I  = 

7 

J 

= 

4 

SUMOST 

= 

1.620585 

I  = 

7 

J 

= 

5 

SUMOST 

= 

1.767613 

I  = 

7 

J 

= 

6 

SUMOST 

= 

1.916717 

I  = 

7 

J 

= 

7 

SUMOST 

= 

2.067707 

I  = 

7 

J 

= 

8 

SUMOST 

= 

2.220990 

I  = 

7 

J 

= 

9 

SUMOST 

'  = 

2.376628 

I  = 

7 

J 

= 

10 

SUMOST 

= 

2.527033 

Y    =    17.067734       Z    =       3.912447  YPR    =    17.059357       ZPR    =       3.905701 

W5BACT    =       2.162113         W5BPRC    =  2.387387         W5BT0L    =       2.337387 

CLONGL    OUTPUT     =  3.C96774  7.506919  17.067734 

W58ACT    =       2.162113  W53PRC    =  2.387387  W5BT0L    =       2.38H87 

SPAiNIt     8)       =  2.387387  I     =  7       J    =    10 


3.912447 


W53ACT  =   2.162113 


W5BPRC  =   2.387387    W53TUL  =   2.514391 

SUMOST  =  0.432994 

SUMDST  =  0.720609 

SUMOST  =  1.C02813 

SUMOST  =  1.279888 

SUMDST  =  1.552101 

SUMOST  =  1.819724 

SUMDST  =  2.083023 

SUMDST  =  2.342276 

SUMOST  =  2.597717 


Y  =  18.794434   Z  =   5.734756   YPR  =  18.687378   ZPR  =   5.599993 
CLONGL  OUTPUT  =    3.096774        6.528984       18.794434 
W5BACT  =   2.162113    *58PRC  =   2.514391    W5BT0L  =   2.514391 


I  = 

8 

J 

= 

1 

I  = 

8 

J 

= 

2 

I  = 

8 

J 

= 

3 

I  = 

8 

J 

= 

4 

I  = 

8 

J 

= 

5 

I  = 

8 

J 

- 

6 

I   SB 

3 

J 
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J   = 

3 

J 

= 

8 

I   = 

8 

J 

•= 

9 

5.734756 


SPAiSK 

9) 

— 

2. 

514 

391    I  = 

8 

J  =   9 

W5BACT 

2.162113 

W5BPRC  = 

2 

.514391    W5BT0L  = 

2.696131 

J  = 

8 

J 

= 

10 

SUMOST 

= 

0.335511 

I  = 

9 

J 

= 

1 

SUMDST 

= 

0.529975 

I  = 

9 

J 

= 

2 

SUMDST 

= 

0.722415 

I  = 

9 

J 

= 

3 

SUMOST 

= 

0.912863 

I  = 

9 

J 

= 

4 

SUMOST 

- 

1.101335 

I  = 

9 

J 

= 

5 

SUMOST 

= 

1.287874 

I  = 

9 

J 

= 

6 

SUMDST 

= 

1.472521 

1  = 

9 

J 

= 

7 

SUMOST 

= 

1.655266 

I  = 

9 

J 

= 

8 

SUMOST 

= 

1.836177 

I  = 

9 

J 

= 

9 

SUMOST 

= 

2.015270 

I  = 

9 

J 

= 

10 

SUMOST 

= 

2.191730 

I  = 

10 

J 

= 

1 

SUMOST 

= 
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£  = 

10 

J 

= 

2 

SUMOST 

= 
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I  = 

10 

J 

= 

3 

SUMOST 

= 
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I  = 

10 

J 

= 

4 
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= 
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I  = 

10 

J 

s 

5 

SUMOST 

= 

2.437263 

I  = 

10 

J 

= 

6 

SUMOST 

= 

2.486099 

I 

=  10 

J 

6 

SUMO  ST  = 
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I 

=  10 

J 
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SUMOST  = 
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I 

=  10 

J 

=  10 

SUMOST  = 
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I 

=  11 

J 

=   1 

SUMOST  = 

2.903623 

Y  =  20.22523b  I    =   8,012792  \?R    =  20.219101  l?R    =   8.000000 
CLGNGL  OUTPUT  =    3.096774        5.473187       20. 22523b        8.012792 
W5BACT  =   2.162113    W58PRC  =   2.696131    W58TDL  =   2.696131 


SPA;M(  10) 

= 

2. 
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131    I  =  11 

J  =   1 
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2 
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= 
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= 
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J 
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- 
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J 

•= 

4 
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- 
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I  = 

11 

J 

= 

5 
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= 
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I  = 
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J 
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6 
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= 
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I  = 
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J 

= 

7 
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= 
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I  = 

11 

J 

= 

8 

SUMOST 

= 

1.737678 

I  = 

11 

J 

= 

9 

SUMOST 

= 
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I  = 
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J 
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10 
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= 
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I  = 
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J 
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J 
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= 
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£  = 

12 

J 
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3 
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= 
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I     = 
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J 
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4 

SUMOST 

= 
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10.599998 


CLONGL  OUTPUT  =    3.0967/4 


4.402401 


21.329575 


10.739202 


W5BACT  =   2.162113    W5BPRC  =   2.944719    W5BT0L  =   2.944719 


SPA.M(ll) 

= 

2. 
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I  =  12 

J  =   4 

W5BACT  = 
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3.283364 
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J 
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J 
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J 
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J 
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J 
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2.835966 

I  = 
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SUMDST 

= 
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I  = 
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J 

= 

8 

SUMDST 

= 

3.342599 

Y  =  22.042709  I    =  13.941499   YPR  =  22.012314   ZPR  =  13.750000 

CLGNGL  OUTPUT  =    3.096/74        3.351851       22.042709       13.941499 

W53ACT  =   2.162113    W5BPRC  =   3.283364    W5BT0L  =   3.283364 

SPA!N(12)   =    3.283364    I  =  13   J  =   8 


W53ACT    =       2.162113 
I     =     13  J    =       9 


I  =  13 
I  =  14 
I  =  14 


J  =  10 
J  =  1 
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W5BPRC  =   3.283364    W5BTCL  =   3.762891 
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SUMDST  =   0.564520 
SUMDST  =   0.715866 
SUMHST  =   0.86711D 
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1 
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.621969 

SUMOST 
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SUMDST 
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.07392o 
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= 

3 
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SUMDST 

= 

3 
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SUMDST 

= 

3 

.877233 

Y  =  22.394119   Z  =  17.635715   YPR  =  22.390610   ZPR  =  17.599976 

CLONGL  OUTPUT  =    3.096774        2.714253       22.394119       17.685715 

W5BACT  =   2.162113    W5BPRC  =   3.762891    w5dT0L  =   3.762891 

SPANU3)   =    3.762891    I  =  15   J  =   9 

W58ACT  =   2.162113    W5BPRC  =   3.7&2891    W58T0L  =   4.181564 


I  = 

15 

J 

= 

10 

SUMDST 

= 
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J 
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1 
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= 
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I  = 
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J 
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SUMDST 

= 
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J 
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J 
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J 
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7 
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J 
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8 

SUMDST 
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9 
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10 
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1 
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J 
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= 
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J 
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= 
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= 
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I  = 

17 
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= 

10 
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W5BACT  =   2.162113    W58PRC  =  4.131564    W56T0L  =   4.181564 

CLQlMGL  OUTPUT  =    3.096774        2.061488       22.429^13       21.866409 

W5BACT  =   2.162113    W58PRC  =  4.181564    W5BTQL  =   4.131564 

SPAN(14)   =    4.1815o4    I  =  17   J  =  10 

W5BACT  =   2.162113    W58PRC  =  4.181564    W5BT0L  =   3.582263 

=18     J  =   1      SUMDST  =   0.333661 

=18     J  =   2      SUMDST  =   0.533715 

=18     J  =   3      SUMDST  =   0.733774 

=18     J  =   4      SUMDST  =   0.933838 

=18     J  =   5      SUMDST  =   1.133906 
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J 
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3 
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J 
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SUMDST 

= 
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I  = 

20 

J 

= 

5 

SUMDST 

= 
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I  = 

20 

J 

= 

6 

SUMDST 

= 
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I  = 

20 

J 

= 

7 

SUMDST 

= 

1.567926 

I  = 

20 

J 

= 

8 

SUMDST 

= 

1.791924 

I  = 

20 

J 

= 

9 

SUMDST 

= 

2.015907 

I  = 

20 

J 

= 

10 

SUMDST 

= 
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J 
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SUMDST 

= 
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I  = 

21 

J 
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2 

SUMDST 

= 
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J 
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4 
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5 
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= 

3.359739 

I    - 

21 

J 
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6 

SUMDST 

= 

3.583699 
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Y  =  18.769989   Z  =  25.486084   YPR  =  18.992035   ZPR  =  25.471C35 


CLONGL  OUTPUT 


W58ACT  =   2.162113 


3.096774 
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W5BTUL  =   3.562263 


SPAN(16) 

- 

3. 
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I  =  21 

J  =   6 
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2.162113 
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J 
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3 
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= 

1.569009 

I  = 

22 

J 

= 

4 

SUMDST 

= 

1.792931 

I  = 

22 

J 

= 

5 

SUMDST 

= 

2.016862 

I  s 

22 

J 

= 

6 

SUMDST 

= 

2.240771 

I  = 

22 

J 

= 

7 

SUMDST 

= 

2.464b58 

I  = 

22 

J 

= 

8 

SUMDST 

= 

2.688555 

I  = 

22 

J 

- 

9 

SUMDST 

= 

2.912435 

I  = 

22 

J 

= 

10 

SUMDST 

= 

3.136307 

Y  =  15.756542   Z  =  25.632541  YPR  =  15.863767   ZPR  =  25.675853 

W5BACT  =   2.162113    W58PRC  =  3.019365    W5BT0L  =   3.019365 

CLOimGL  OUTPUT  =    3.096774         1.234049       15.756542       25.632541 

W56ACT  =   2.162112    W53PRC  =  3.019865    W5BT0L  =   3.019865 


SPAN! 17) 

= 

3. 

,019 

365 

I  =  ZZ 

J  =  10 

W5BAC 

T  = 
Zi 

2 

J 

2113 
=   1 

W 

5  G  P  R  C  = 
SUMDST 

3 

-  56  - 

.019865    W5BTUL 
0.340307 

=   2.962949 

I  = 

23 

J 

= 

2 

SUMO ST 

= 

0.5o4165 

I  — 

23 

J 

= 

3 

SUMOST 

= 

0,7880 16 

I  = 

23 

J 

= 

4 

SUMOST 

= 

1.011861 

I  = 

23 

J 

- 

5 

SUMOST 

= 

1  .235697 

I  = 

23 

J 

= 

6 

SUMOST 

= 

1.459523 

j  = 

23 

J 

= 

7 

SUMDST 

= 

1 .683344 

I  = 

Zi 

J 

= 

8 

SUMOST 

= 

1.907159 

I  = 

23 

J 

= 

9 

SUMOST 

= 

2.  130963 

j  = 

23 

J 

= 

10 

SUMOST 

= 

2.354760 

j  = 

24 

J 

= 

1 

SUMOST 

= 

2.578547 

I  = 

24 

J 

= 

2 

SUMOST 

= 

2.802330 

— 

24 

J 

a 

3 

SUMOST 

= 

3.026100 

Y  = 

L2. 798667 

Z  = 

25 

.856140 

YPK  =  12.959067 

ZPR  =  25.647382 

CLONGL  OUTPUT 

3.096774 

1.243269 

12.798687       25.856140 

W5SACT  =   2.162113    W58PRC  =   2.962949    *5BTGL  =   2.962949 


SPAM  18) 

~ 

2. 

962949 

I  =  24 

J  =   3 

W58ACT  = 

2.1c 

.2113 

W5BPRC  = 

2 

.962949    ^5bTUL  = 

2.939541 

I  = 

24 

J 

= 

4 

SUMOST 

= 

0.286916 

I  = 

24 

J 

- 

5 

SUMDST 

= 

0.510673 

I  = 

24 

J 

= 

6 

SUMDST 

= 

0.  734420 

I  = 

24 

J 

= 

7 

SUMDST 

= 

0.958159 

I  = 

24 

J 

= 

8 

SUMDST 

= 

1.181889 

I  = 

24 

J 

= 

9 

SUMOST 

a 

1.405612 

I  = 

24 

J 

a 

10 

SUMDST 

a 

1.629326 

I  = 

25 

J 

= 

1 

SUMDST 

= 

1.653028 

I  = 

25 

J 

= 

2 

SUMDST 

= 

2  .  j/o  724 

I  = 

25 

i 

= 

3 

SUMDST 

= 

2.^00413 

I  = 

25 

J 

= 

4 

SUMDST 

= 

2.524093 

I    - 

25 

J 

= 

5 

SUMDST 

= 

2.747762 

I  = 

25 

J 

= 

6 

SUMDST 

a 

2.971424 

Y  =   9.862784   Z  =  26.002213   YPR  =  10.054372  LP*    =  25.993622 
CLONGL  UUTPUT  =    3.096774        1.208532        9.862784       26.002213 
W58ACT  =   2.162113    W58PRC  =   2.939541    W5BT0L  =   2.939541 


SPAM( 19) 

S 

2. 

,939541 

I  =  25 

J  =   6 

W58ACT  = 

2.1c 

.2113 

W58PRC  = 

2 

.939541    W5BT0L  = 

2.921926 

I  = 

25 

J 

= 

7 

SUMDST 

= 

0.255539 

I  = 

25 

J 

= 

8 

SUMDST 

= 

0.479186 

J   a 

25 

J 

= 

9 

SUMDST 

= 

0.702823 

I   = 

25 

J 

= 

10 

SUMDST 

= 

0.926453 

I   a 

26 

J 

= 

1 

SUMDST 

= 

1.150075 

I   = 

26 

J 

= 

2 

SUMDST 

= 

1.373689 

J   a 

26 

J 

= 

3 

SUMDST 

= 

1.5  9729  3 

I   = 

26 

J 

= 

4 

SUMDST 

= 

1.820691 

I   = 

26 

J 

= 

5 

SUMDST 

= 

2.044482 

I   = 

26 

J 

= 

6 

SUMDST 

= 

2 • 2o8063 

I   = 

26 

J 

= 

7 

SUMDST 

= 

2.491637 

I   = 

26 

J 

= 

8 

SUMDST 

= 

2.715206 

I   = 

26 

J 

= 

9 

SUMOST 

= 

2.9387o6 

Y  =   6.943064   Z  =  26.115402   YPR  =   7.149673   ZPR  =  26.108542 


W5BACT    =       2.16  2113 
SPAN(20)        =  2.921926 


-  57  - 

W5BPRC  =   2.921926 


W53T0L  =   2.921926 


I  =  26   J  = 


W5bAC 


r  t  = 


=   2.  lo 

2113 

W5BPKC  = 

2 

.921926    W53T0L  = 

2.908485 

26     J 

s 

10 

SUM OS T 

= 

0,240392 

27     J 

=■ 

1 

SUMOST 

= 

0*463.939 

27     J 

- 

2 

SUMO ST 

= 

0.68/479 

27     J 

= 

3 

SUMOST 

= 

C.  9  110 13 

27     J 

= 

4 

SUMOST 

= 

1  . 1345  3  9 

27     J 

= 

5 

SUMOST 

= 

1.353059 

27     J 

= 

6 

SUMOST 

= 

1.531574 

27     J 

= 

7 

SUMOST 

= 

1.805083 

27     J 

= 

8 

SUMOST 

= 

2.028584 

27            J 

= 

9 

SUMOST 

= 

2.252082 

27     J 

= 

10 

SUMOST 

= 

2.475574 

28     J 

= 

1 

SUMOST 

= 

2.699061 

28     J 

— 

2 

SUMOST 

= 

2.922544 

4.035593 

Z  = 

26.  191559 

YPR  =   4.244977   ZPR 

=  26.137 

Y  = 

CLONGL  OUTPUT  =    3.096774        1.162918        <t. 035593 
W58ACT  =   2.162113    ^5BPRC  =   2.908485    W58T0L  =   2.908485 


26.191559 


SPAN121) 


2.908435 


I  =  28   J  = 


W58ACT  =   2.162113 


28 
26 
28 

28 
28 
28 
28 
28 
29 
29 
29 
29 
29 


3 
4 
5 
6 

7 
8 
9 
10 
1 
2 
3 
4 
5 


^53PRC  = 
SUMOST 
SUMOST 
SUMOST 
SUMOST 
SUMOST 
SUMOST 
SUMOST 
SUMOST 
SUMOST 
SUMOST 
SUMOST 
SUMOST 
SUMOST 


908485 

0.237537 

0.461010 

0.684479 

0.907945 

1.131408 

1.354366 

1.: 7 8321 

1.801773 

2.025224 

2.248672 

2.472116 

2.695560 

2.919003 


W5BT0L  =   2.399400 


Y  =   1.136441  I    =    26.228058   YPR  =   1.340280   ZPR  =  26.226822 
CLONGL  OUTPUT  =    3.096774        1.154048        1.136441 

W58ACT  =   2.162113    W5BPRC  =   2.899400    W5BT0L  =   2.899400 

SPAN122)   =    2.899400    I  =  29   J  =   5 

W5BACT  =  2.162113  W58PRC  =   2.899400    W53T0L  =   2.894860 

=29  J  =   6  SUMOST  =  0.243043 

=29  J  =   7  SUMDST  =  0.^66482 

=29  J  =   8  SUMOST  =  0.689921 

=29  J  =   9  SUMDST  =  0.913359 

=29  J  =  10  SUMOST  =  1.13  644  3 

=30  J  =   1  SUMDST  =  1.136448 


26.228053 


-  58  - 

Y 

I 

YPR 

ZPR 

SPAM  I  ) 

4.326030 

0.154977 

4.000000 

0.135401 

2.166965 

6,493771 

0.3  340  96 

6.399998 

0.  32425* 

2.17  52  3C 

8.667541 

0.603478 

8.400000 

0.564682 

2.190565 

10.344317 

1.002^17 

10.799995 

0.992337 

2.213699 

13.002581 

1.627-534 

12.973948 

1.617520 

2.248323 

15.106662 

2.559123 

14.973948 

2.487440 

2.30336  1 

17.067734 

3.9124*7 

17.059357 

3.905701 

2.337387 

18.794434 

5.7347t>6 

18.687378 

5.599993 

2.514391 

20.225235 

3.012792 

20.219101 

8.000000 

2.696  131 

21  .329575 

10.739202 

21.286606 

10.59999  8 

2.944719 

22.042709 

13.941499 

22.012314 

13. 750000 

3.283364 

22.394119 

17.665715 

22.39061C 

17.599976 

3.762891 

22.429413 

21.366409 

22.430832 

21.799973 

4.131564 

22.3437^6 

25.239594 

22.343796 

25.239594 

3.37425c 

18.769989 

25.48o084 

13.992035 

25.471085 

3.582266 

15.755542 

25.632541 

15.863767 

25.675858 

3.019865 

12.798587 

25.856140 

12.959067 

25.347382 

2.962949 

9.862784 

26.002213 

10.054372 

25.9^3622 

2.939541 

6.943C64 

26.115402 

7.149673 

26.  108582 

2.921926 

4.0355->3 

26.191559 

4.244977 

26.187378 

2.908465 

1.136441 

26.226058 

1.340280 

26.226322 

2.8994C0 

0.0 

0.0 

0.0 

0.0 

1.  13  644  b 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0,0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

CGCG(  1)   =  1.459806 

LONGITUDINAL  (  1)   IS  SELECTED 

CGCG(  1)   =  2.107491 

LONGITUDINAL  (  2)   IS  SELECTED 

CGCG(  I)   =  1.948315 

LONGITUDINAL  (  3)   IS  SELECTED 

CGCG(  1)   =  2.499537 

LONGITUDINAL  (  4)   IS  SELECTED 

CGCG(  1>   =  3.166o34 

LONGITUDINAL  (  5)   IS  SELECTED 

CGCG(  2)   =  3.166634 


CGCG(  3)   =  3.166634  -  59  _. 

LONGITUDINAL  (  5)   IS  SELECTED 

CGCG(  4)   =  3.i66o34 

LONGITUDINAL  i     5)   IS  SELECTED 

CGCG(  5)       =  3.166634 

LONGITUDINAL  I  5)   IS  SELECTED 

CGCG(  6)   =  3.156634 

LONGITUDINAL  (  5)   IS  SELECTED 

GGCG(  7)   =  3.1b6b34 

LONGITUDINAL  (  5)   IS  SELECTED 

CGCGI  8)   =  3.156634 

LONGITUDINAL  (  5)   IS  SELECTED 

CGCG(  9)   =  3.16  56  34 

LONGITUDINAL  (.  5)   IS  SELECTED 

CGCG(IC)   =  3.166634 

LONGITUDINAL  (  5)   IS  SELtCTED 

CGCG(ll)   =  3.166634 

LONGITUDINAL  (5)   IS  SELECTED 

CGCG(12)   =  3.166634 

LONGITUDINAL  (  5)   IS  SELECTED 

CGCG(13)   =  3.166634 

LONGITUDINAL  (  5)   IS  SELECTED 

CGCG(14>   =  3.166634 

LONGITUDINAL  (  5)   IS  SELECTED 

CGCG(15)   =  3.166634 

LONGITUDINAL  (  5)   IS  SELECTED 

CGCGQ6)   =  3.166634 

LONGITUDINAL  (  5)   IS  SELECTED 
CGCGI17)   =    3.166634 

LONGITUDINAL  (  5)   IS  SELECTED 
CGCG(ia)   =    3.166534 

LONGITUDINAL  (  5)   IS  SELECTED 


LONGITUDINAL  (  5)   IS  SELECTED"  6°  " 
CGCG(20)   =    3.1oo634 
LONGITUDINAL  (5)   IS  SELECTED 
CGCG(21)   =    3.166634 
LONGITUDINAL  (  b)        IS  SELECTED 
CGCG122)   =    3.1o6634 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =    1     HM  =   3D. 174057 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =    2     HM  =   30.07o263 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =    3     HM  =   29.897141 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =    4     HM  =   29.627762 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =    b  HM  =   29.228424 

LONGITUDINAL  (  5)   IS  SELECTED 
I  =    t  HM  =   28.6D3302 

LONGITUDINAL  (  5)   IS  SELECTED 
I  =    7     HM  =   27.672119 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =    8     HM  =   26. 318737 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =    9     HM  =   24.496490 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =   10     HM  =   22.213445 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =   11     HM  =   19.492035 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =   12     HM  =   16.239^34 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =   13     HM  -       12.545532 


r  =  It  HM  =    3.364838        £-, 

LONGITUDINAL  (  5)        IS  SELECTED 
I  =   15     HM  =    4.991653 
LONGITUDINAL  (5)   IS  SELECTED 
1=16    • HM  =    4. 7^5163 
LONGITUOINAL  (  5)   IS  SELECTED 
I  =   17     HM  =    4.54-8706 
LONGITUDINAL  (  5)   IS  SELECTED 
1=18     HM  =    4. 375107 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =   19     HM  =    4.229034 
LONGITUDINAL  (5)   IS  SELECTED 
I  =   20     HM  =    4. 115845 
LONGITUDINAL  (  5)   IS  SELECTED 
I  =   21     HM  =    4.039638 
LONGITUDINAL  (  5 )   IS  SELECTED 
I  =   22     HM  =    4.003139 
LONGITUDINAL  (5)   IS  SELECTED 
XMINEIU  1)  =      160.853806 
XMINEKI  2)  =      160.853806 
XMINERI  3)  =      160.853806 
XMINER(  4)  =      160.853806 
XMINER(  5)  =      160.853806 
XMINER(  6)  =      160.853806 
XMINERI  7)  =      160.853806 
XMINERI  8)  =      160.853806 
XMINERt  9)  =      160.85330O 
XMINER(IO)  =      160.853806 
XMINERtil)  =      160.85380b 
XMINER(12)  =   .    160.853806 
XMINEK113)  =      160.O53806 
XMINERI14)  =      160.853306 


XMINERU6)    = 
XMINERU7)    = 
XMINER(18)    = 
XMINER119)    - 
XMINER(20)    = 
XMINEK(21)     = 
XMINEK<22)    = 
LONGITUDINAL 
BASEMK     1) 
BASEMK     2) 
BASEMK     3) 
BASEMK     4) 
BASEMK     5) 
BASEMK     6) 
BASEMK     7) 
BASEMK     8) 
BASEMK    9) 
BASEMK  1C) 
BASEMK  11  ) 
BASEMK  12) 
BASEMK  13) 
BASEMK  14) 
BASEMK  15) 
BASEMK  16) 
BASEMK  17) 
BASEMK  18) 
BASEMK  19) 
BASEMK20) 
BASEMK21) 
BASEMK22) 


16C. 35380b 
160.853806 
160.85380b 
160.35380b 
lbO. 85380b 
160.85380b 
L 60. 853806 
[     5)        IS    SELbCTED 
1.465505 
0.730327 
0.907333 
1.173897 
1.563735 
2.159605 
3.066433 
4.3bl360 
6.093286 
3.262015 
=       10.909203 
=       14.031854 
=       17.709274 
=       21.354095 

0.0 
=  24.910995 
=  25.107259 
=  25.280609 
=  25.426392 
=  25.539322 
=  25.615230 
=       25.651672 
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SPAN(  1) 
SPAN!  2) 
SPAN(  3) 
SPAM(  4) 
SPAN(  5) 
SPAN!  &) 
SPAN*  7) 
SPAN(  8) 
SPAN!  9) 
SPAN (10) 
SPAN(ll) 
SPANQ2) 
SPAN( 13) 
SPAN< 14) 
SPAM  15) 
SPAN( lto) 
SPAM  17) 
SPAN! 13) 
SPAN(  IV) 
SPAN(20) 
SPAM  21) 
SPAM22) 
SPAN(23) 
SPAM24) 
SPAN (2b) 
SPAM26) 
SPAN (27) 
SPAM28) 
SPAN(29) 
SPANO0) 
SPAM  31) 
SPAN(32) 


2.162113 

2-166965 

2.175280 

2.  1905o5 

2.213699 

2.243323 

2.303361 

2.337387 

2.514391 

2.596131 

2.944719 

3.283364 

3.762891 

4.131564 

3.374258 

3.582268 

3.019865 

2.^o2949 

2.939541 

2.921926 

2.908^85 

2.89  9400 

1.136448 

0.0 

0.0 

0.0 

0.0 

0.0 

CO 

0.0 

0.0 

CO 


-   03 


SPAN (33) 
SPAN (34) 
SPAN! 35) 
SPAN!  3t>) 
SPAN137) 
SPAiM(38) 
SPAN139) 
SPAN140) 


0.0 

0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 


.-  fh   - 
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Y 

z 

YPR 

ZPR 

SPANl I ) 

2.161334 

0.057134 

2.000000 

0.052099 

2.162113 

4.326030 

0.  15^977 

4.000000 

0.13  5401 

2.166965 

6.493771 

0.334096 

6.399993 

0.324254 

2. 1752  3  J 

8.667341 

0.603476 

8.400000 

0 • 5646  32 

2,) 90565 

10.844317 

1.002817 

10. 799995 

0.^92337 

2.213699 

13.002581 

1.6  27934 

12.973948 

1.617520 

2.248323 

15.106862 

2.559123 

14.973948 

2.487440 

2.3033ol 

17.067734 

3.912447 

17.059357 

3.905701 

2.387367 

18.79443<r 

5.734756 

16.68737c 

5.599998 

2.514391 

20.225235 

8.012792 

20.219101 

8.000000 

2.696131 

21.329575 

10.739202 

21  .236606 

10.599998 

2.944719 

22.042709 

13.941499 

22.012314 

13.750000 

3.283364 

22.3  94119 

17.685715 

22.390610 

17.599976 

3.762891 

22.429413 

21.366409 

22.430332 

21.799973 

4.181564 

22.343796 

25.239594 

22.343796 

25.239594 

3.3  74258 

18.76998  9 

25.486084 

18.9920  3  5 

25.471085 

3.5322o8 

15.756542 

25.o82541 

15.863767 

25.676858 

3.0198o5 

12.793687 

25.856140 

12.959067 

25.347332 

2.962949 

9.862784 

26.002213 

10.054372 

25.993622 

2.939541 

6.943064 

26.115402 

7.149673 

26.108532 

2.92i92o 

4.035593 

26.191559 

4.244977 
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2.908435 

1.136441 

2O.228056 

1.340280 

26.226822 

2.399400 

0.0 

0.0 

0.0 

0.0 

1.136448 
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0.0 
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0.0 

0.0 
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B.   MAIN  PROGRAM  COSTDATA 

1.'  DSSCHIPTIOIT 

Introduction 

Main  program  C03DATA  carries  out  the  cost  calculation 
for  the  midship  section  of  DD-931>  using  as  inputs  much  of 
the  design  information  generated  by  program  RU1TSC0RS. 
Materials  cost  data,  extracted  from  ££],  are  combined  with 
various  handling  and  erection  costs  to  generate  a  total 
cost,  per  foot  length  of  midship  section,  for  the  con- 
struction of  DD-931  primary  hull  structure. 

For  reference  purposes,  the  acquisition  cost  data  for 
HTS  structural  members  are  listed  in  Table  IV  on  the  fol- 
lowing pages.  These  members,  when  procured  through  the 
Federal  supply  system,  are  not  discounted  in  price  for 
quantity  acquisitions. 

The  methods  used  by  the  cost  estimators  of  the  Boston 
Naval  Shipyard  were  employed  in  main  program  COSDATA.  All 
these  charges  are  based  on  the  cost  of  one  man-hour  of  work 
including  yard  overhead.  For  the  purposes  of  this  investi- 
gation, one  man-hour  has  been  arbitrarily  assumed  to  cost 
$  7.50. 

Main  urogram  COSTDATA  takes  the  series  of  intervals 
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TABL3  IV 


AVAILABLE  PLATES  AKD 
DESCRIPTION  Ai;D  ACQUI3ITI0 


bhAF 


ES  - 

COSTS 


Plates 


Thickness 
(Inches) 


Width 
(Ft.) 


Lenrth 
(Ft.) 


Cost 
Total 


Cost 
Sc.  Ft. 


0.25 

8 

—               —1 

20 

$  169 

$  1.053 

8 

29 

27^ 

1.181 

5 

20 

128 

1.28 

0.28125 

8 

29 

305 

1.316 

0.3125 

6 

29 

238 

1.37 

8 

29 

353 

1.522 

0.3^375 

8 

29 

383 

1.651 

0.375 

8 

20 

25^ 

1.587 

5 

20 

161 

1.61 

6 

29 

281 

1.618 

8 

29 

383 

1.652 

O.V375 

6 

29 

39H- 

2.262+ 

0.50 

8 

33 

569 

2.158 

5 

20 

237 

2.37 

8 

29 

551 

2.375 
2.4-62 

8 

20 

39^ 
$-83 
818 

6 

29 

2.796 

0.625 

8 

33 

2.984 

5 

20 

306 

3. 06 

6 

29 

532 

3. 06 

0.75 

8 

33 

959 

3.635 

3.8*; 

8 

20 

614- 

0.875 

8 

16 

500 

3*905 

6 

20 

498 

4-.15 

8 

29 

1030 

h.kk- 

15 

25.16 

1953 

5.19 

0.9375 

8 

20 

720 

4.50 

1.00 

8 

20 

725 

4.53 

5 

20 

k8l 

if.8l 

1       8 

29 

1233 

5.^2 
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TABL3  IV  -   Continued 


Shaoe: 


No. 


Deoth 
(In.) 


Fig.  V/idth 
(In.) 


Weight 
(Lb. /Ft.) 


All  shades  have  a  length  of  ^0  feet, 


Cost 

Per  Ft. 


1 

6 

k 

12.0 

%  2.00 

2 

6 

6.O63 

22.6 

2.^0 

I 

8 

h 

13.0 

1.1*0 

8 

5^36 

20.00 

2A0 

5 

9.9 

5.75 

21.0 

2.70 

6 

12 

k 

16.5 

2.^0 

7 

16 

7 

1*0.0 

3.90 

8 

18 

7.5 

50.0 

5.50 

9 

2h 

12 

100.0 

9.00 
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between  longitudinals  for  half  the  midship  section  and 

generates  a  set  of  intervals  for  the  entire  section.   This 

is  designed  to  facilitate  the  later  calculation  of  butt 

locations  to  insure  a  clearance  of  at  least  four  inches 

between  any  given  butt  joint  and  a  longitudinal-plating 

intersection. 

The  cost  of  welding  any  of  the  various  possible  size 

plates  is:  calculated,  using  the  input  value  of  cost  of  butt 

welding  the  given  thickness  of  shell  plating  (nan-hours 

per  foot  length  of  weld). 

Plating  Thickness      Cost  of  Butt  Wel'dQf] 
(inches)  (llan-Hours  Der  Foot) 

0.25  0.38" 

0.28125  0.1+3 

0.3125  oM 

0.3^375  0.53 

0.375  0.5S 

0.4-375  0.68 

0.50  0.76 

0.625  1.22 

0.75  1.60 

0.875  2.02 

0.9375  2.22 

1.00  2.4-2 

The  program  next  calculates  the  number  of  plates  re- 
quired to  go  around  the  girth  of  the  midship  section.  The 
alternate  plate  sizes  of  the  appropriate  thickness  must  be 
arranged  in  ascending  order  of  cost  per  square  foot  area. 
The  first  plate  is  centered  over  the  keel,  and  successive 
plates  are  added  in  progression  around  the  girth  of  the 
midship  section.   Should  a  conflict  arise  in  that  a  butt. 


This  information  is  for  work  on  board. ship  under 
difficult,  conditions.   Other  conditions  are  nornal  and  cor.iolex 
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joint  is  too  near  to  a  longitudinal-plating  intersection, 

the  algorithm  first  attempts  to  select  the  next  available 

plating  size.   If  this  proves  to  be  impossible,  then  a 

cut  of  0.7  feet  is  made  from  the  end  of  the  plate.   The 

following  charges  are  made  for  cutting  plates: 

Plating  Thickness  Cost  of  Cut  Type 
(Inches)        (Kan-Hours  oer  Foot)    Cut 

0.25  0.05"  Flame  cut 

0.375  0.06  Flame  cut 

0.50  0.07  Flame  cut 

0.625  0.08  Flame  cut 

0.75  0.09  Flame  cut 

0.875  0.10  Flame  cut 

1.00  0.11  Flame  cut 

The  net  cost  of  butt  welding  the  plates  is  next  cal- 
culated, given  the  total  number  of  plates  of  each  indivi- 
dual size  employed  in  the  midship  section  structure.   The 
cost  of  any  plate  cuts  is  calculated,  using  the  previously 
listed  cost  data  per  cut  per  foot  plate  length. 

The  cost  of  rolling  the  plates,  using  average  man- 
hour  charges  allocated  l>y   the  Boston  ITaval  Shipyard,  based 
on  a  plate  length  of  twenty  feet,  is  computed  next.  The 
standard  charges  for  such  plates  (twenty  feet  long)  are 
as  follows: 

Plating  Thickness.      Cost  of  Rolling 

(Inches)  .  (Man- Hours  oer  Plate) 
0.25  2..? 

O..50  2.9 

0.75  3-9 

1.00  3-9 


Information  provided  by  Mr.  Joseph  Palange,  a  Planner 
and  Estimator  with  the  Boston  Ilaval  Shipyard. 
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Typical  rigging  costs  are  evaluated,  using  an 
arbitrarily  specified  "nix"  of  staging  comprising  two 
platforms  twenty  feet  high,  two  fourteen  feet  high,  two 
eight  feet  high,  and  two  three  feet  high.  Again,  normal 
Boston  Naval  Shipyard  charges  based  on  staging  five  feet 
long  are  evaluated  on  the  basis  of  the  per-foot  length 
costs. 

The  acquisition  cost  of  the  plating  is  computed, 
using  the  input  data  provided  the  program  and  the  de- 
termined number  of  plates  employed  of  each  given  size. 

The  expense  involved  in  the  procurement,  cutting, 
and  welding  of  longitudinal  wide  flange  sections  is  next 
calculated.   The  previously  defined  cost  criteria  for  plate 
cutting  are  used  for  evaluating  the  expenses  involved  in 
cutting,  the  shape  flanges,  Next,  the  cost  of  welding  the 
longitudinals  is  evaluated,  using  normal  Boston  Naval  Ship- 
yard charges  similar  to  those  described  in  terms  of  the  cost 
of  butt  welds: 

Longitudinal  Welding  Cost 

Number  (Man- Hours  t>er  Foot) 

1  0.31* 

2  0.50 

h  o!?2 

5  Q:.hZ 

6  O^f 

7  0.66 

8  1.0!+  . 

Additionally,  for  all  welding  operations,  certain- 
fixed  charges  are  added.   These  allow  for  making  ready 
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and  putting  away  equipment,  wire  brushing,  arc  air,  dye 
penetrant  for  weld  inspection,  and  strip  heaters  for 
heat  treating  welds. 

An  approximate  evaluation  of  the  cost  contribution 
of  the  transverse  frame  structure  is  made,  estimating  that 
the  cost  of  the  transverse  frame,  on  the  average,  is 
seventy  per  cent  that  of  the  centerline  vertical  keel, 
per  foot  length. 

Once  all  these  individual  costs  are  calculated,  the 
total  cost  of  the  midship  section  structure,  per  foot 
length,  is  determined. 


Inputs 


Symbol 
CWLDMH 
IHL 

XLGTITL 
CHGMNH 
COSTKL 

TOTSPN 

CROLL 

CSTLGL 

SPAIT(I) 
CWLGTL 


Meaning 

Cost  of  butt  weld.   (Man— Hours 

per  foot  length) 
Plating  thickness.   (Inches) 

The  number  of  longitudinals  in 
the  midship  section. 

The  cost  of  one  man-hour  of 
work.   (Dollars) 

The  total  cost  of  the  keel 
structure.   (Dollars  per 
foot  length) 

The  total  midship  section: 
girth.   (Feet) 

The  cost  of  rolling  a  plate 

twenty  feet  long.   (Dollars) 

The  acquisition  cost  of  a  longi- 
tudinal.  (Dollars  per  foot 
length) 

The  interval  to  longitudinal  (I). 
(Feet) 

The  cost  of  welding  a  longitudi- 
nal.  (Han- Hours  per  foot 
length) 
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Symbol 

PLT(I,l) 

PLT(I,2) 

ELT(I,3) 

CLGCUT 

EEM 


.-.caning 


Width  of  plate(I).   (Feet) 
Length  of  plate (I).   (Feet) 
Cost  of  plate(I).   (Dollars) 

The  cost  of  cutting  the.  flanges 
of  a  longitudinal.   (Man- 
Rours  per  foot) 

Transverse  frame  spacing, 
(Feet) 


Calculated  I tens 


Symbol 

TSPAIT(I) 

CWELD(I) 

DIST 

DSUIIS 

LGL1/XLGL1.. 

NOCUT/PTCUT 
CPLTWD 

CPTCUT 
TCHOLL 
CHIG 

CPLTNG 

CTLGTL 

CWLTNL 


Meaning 

Span  between  longitudinals,  for 
entire  section.   (Feet) 

Cost  of  welding  the  plating, 
per  butt,  per  foot  length. 
(Dollars) 

Location  of  plate  butts.   (Feet) 

Locations  of  longitudinals. 

(Feet) 
ITunbcr  of  plates  (l)...(5)  re- 
quired for  aids hip  section. 
Number  of  times  plates  must 

be  cut. 
Total  cost  of  welding  the 

plating,  per  foot  length. 

(Dollars) 
Total  cost  of  cutting  the  plates, 

par  foot  length.   (Dollars) 
Total  cost  of  rolling  the  plates, 

per  foot  length.   (Dollars) 
Total  cost  of  providing  bhe 

rigging,  per  foot  length. 

(Dollars) 
Total  acquisition  cost  o 

plating,  per  foot  length. 

(Dollars) 
Total  acquisition  cost 

longitudinals,  per 

length.   (Dollars) 
Total  welding  cost  for 

gitudinals,  per  foot  length 

(Dollars) 


the 


01 
foot 


;he 


the  Ion- 
's-!- 
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Symbcl 


leaning 


ccutf: 


CTFRAM 


The  calculated  cost  of  cutting 
the  flanges  of  the  longi- 
tudinals.  (Dollars  per 
foot  length) 

Approximate  cost  per  foot  hull 
length  for  the  transverse 
frame.   (Dollars) 


Output 


Symbol 
CTOTAL 


Meaning 


Total  cost  of  building  the 
midship  section,  per  foot 
length.   (Dollars) 


Sample  Input/Output    (Computer  test  run) 

Input:        PLT(I,1)  PLT(I,2)   PLT(I,3) 

1=1   3.0  33.0      959.00 

2.   8*0  20.0       61+.00 

...  ....       •••'..* 

...  • . • .       ...•*. 

p   ...  ....       ..*... 

CWLDMH     1.60  Man- Hours/Foot 

TEL        0.75  Inches 

XLGTITL    17.0 

CHGKKH     7.50  Dollar s/han- Hours 

COSTKL    27.56  Dollars/Foot 

TOTSPN   125.95  Feet 

CROLL      3»90  Dollars 

CSTLG-L     3..9O  Dollars/Foot 

SPAII(I)  3PAi:(I+l)     SPAN  (1+2) 

1=1  +  .717  +.751       +.853 

I  =  h     5.110  5-72+       6.935 

1=5  8.516  9.080     13.291 

CWL  GTL     0.66  Man-  Ho  ur  3  /?o  o  t 

CL  GCUT     0 .  ih  Man-  Ho  ur  s  /Fo  o  t 

FBM       3.00  Feet 

Output:  CTOTAL  1^65.77  Dollars 


Fundamental  Equations 


CWELD(I)    =     CHGKNH  ::    ((2  :•:   (?LT(I,1)    +  PLT(I,2))) 
(CV/LDKH  ::  1.12  +  Q.iy+)    +   5.5) 
2.0  ::  ?LT(I,2)  ~~' 


-  76  - 

DIST  =  "DIST  +  PLT(I,1) 

OR 

-  DIST  -   0.7  +  PLT(I+1,1) 

(If  too  near  a  longitudinal) 

CPLTWD  =  CWSLD(l)  x  XLGL1  +  CW3LD(2)  :•:  XLGL2  + 
CWELD(3)  X  XLGL3  +  CWELD&O  X  XLGlA  + 
CWELD(5)  x  XLGL5 

CPTCJT  =  PTCUT  x  CKGMNH  x  . 

(0.05     +      O^^TH^^^a) 

TCRGLL  =      Ch^-i'i^  x  CROLL  x    (XLGL1   +  XLGL2   +  XLGL3   + 
^u*  XLGL^  +  XLGL^) 

CRIG  =     OA     x      (20.    +  12  A  +  9.7  +  7.5)      x      CHGMH 

rPTTvr          PLT(1,3)    x  XLGL1      +     PLT(2,3)    x  XLC-L2      . 
CPLIuG  -     ^(1,2) PLTT2721 

PLT(3,3)   X  XLGL3      .      PLT(k,3)    "  XLGL**      . 
PLT(3,2)  PLT(M-,2) 

PLTii5_3ixJOLGL2 
PLT(5,2) 

CTLGTL  =     XLGTNL      x     C3TLGL 

CCUTFT  =     CLGCUT      x     XLGlilL     x      CKGIHIH 


CTFRA11 


=  0.7  X   COSTKL  x  TOTSPIT 
EBM 


CTOIAL  =   CPLTWD  +   CPTGUT   +  TCROLL  +   CRIG  + 

CPLTKG  +  CTLGTL   +   CWLTNL  +   CCUTFT  + 
CTFRAi:  +  COSTKL 


Sample  Calculation    (Refer  to  program  listing,  flow  chart, 

and  printout  of  typical  computer 
run,  following  pages) 


( t   — 


LEVEL  °t  MOD  C 


MAI  J 


DATE  =  6  7128 


19/35/58 


01  MENS  I  ON  PL  i  (5  ,  3  J  , SPAN(  v;i  ,  f  S  J  \N(  30)  ,L.i£LOI  5  > 

j j  aoo  I  =  L,  iC 
800  TSP  A  ;(  I  )  =  O.G 
900  FORMAT  (or  !  0-u) 

DATA  LGL  1,1..GL  2 , LGL3 , LGL4, LGL5 ,NOCUT/ 1 ,0,0,0,0,2/ 
9-1-G  FORMAT  tailOJ     ,  .     . 

DO  400  I  =  L,  5 

READ  (5,  900)  P  L  I  (  I  ,  L  )  ,  PLTU.,2  1,  PLT(-i»3) 
*^ITC  (6,  9QC)  PLT(Ifl)i  PLT(I,2),  PLTII,3) 

IF  l-P-LTU,l)  .LT.  2Q»G)  GQ-.T.U  '+00        

3  L  r (  I ,  I  )  =  0.0 

PLT(  1,2)  =  0.0         .  .  __ 

P  L  T  {  I  ,  3  )     =    0.0 
400    C-OcAl  LMUE 

READ  (  5,9C0  )  CWLDMHtTHl,  XLGT.NIL  ,  CHGMNH,  COSTKL  ,  TOTSPN  ,CROLL  ,CSTLGL 
aXl  I"E(o,9CC)  .C.tfLaMH».T.aLf.X.LG.IML».CHGl!liMid.i.CQSI«kLj  TO  T  SU?_N  ,  CROL  L  ,  C  5  TLGL 
00    4  10    I     =     1 ,     36,     5 

READ     15,9CC1     S.P  An  (  I  J  .     S  PA:\(  L+  1 )  ,     S.PAftC  I H-.21.,     SPANtH-3),     SPAN.U     +    4) 
410     rfRIT,E(6f9C0)     SPA.M(  I  )  ,     SPAiMtI  +  1),     SPANiI+2),     SPANK  1+3) f     SPANU    +    4) 

„ RE-\U15,9CG)   ..CWLGTL,.CLGCUT,FRM 

rtRITE     (6,     9001     CWLGTL,     CLGCUT,     FRM 

DO    42 j     I     =     1,     40      .      .  .  

TSP AM (  [  )     =    SPAM(  I  ) 

JLE.LSPANLL)     .tg.    CO    GD    TO    ^5,  .     

42C  CONTINUE 

—425  IF  (I  :E1,    41)  GO  r.Q_426 ___ ____„ 

00  430  J  =  1,  40 

___ TSPAOd     t    J    -    L)     =    S&A&KJ     -    J)  .__ ._.   „ 

IF     (  (  I-J-l)     .£Q.     C)     GU    TO    435 

4  26    0  0    43  1    J     =     1,     VO- 
.431    T.SPANH     +    J)     =    SPANU    -    J    +     1)  


_C CALCULATE    THE    COST    OF     giE.LO.LNG    THE    PLATING    (PEK    30TT     PER    FT.     LGTH.) 

C 

435    00    44.Q    I    e    1«  .5 .     _ 

IF  (PL.T  (I  ,1)  .EQ.  0.0)  GO  TO  445 
..440  CWELDC1J  =  CtiGMNH  *  {  (  2.  v*  (PL  T  (  I  ,  1 )  +DL  T  (  I  ,  2  )  )  )  *  (  CM  LOMH*  i  .  12  +  0.14 
14)  +-  5.5)/(PLT(I,2)*2.0) 

_.__445  00  446  J  =  I,  5   .  

446  CWELO(J)  =  0.0 

C 
.C. . . 

c 

QSUMS  E 

I  =  1 
J  =  1 


CALCULATE  THE  NUMBER  OF  PLATES  OF  EACH  SIZE  USEO  FOR  THE  MIDSHIP 

SECT  100.  .         ... .  . 


-  V?0  - 


G    LEVEL 

■  J  1ST     = 

1M 

EO&M.AI 

3  J  4 

f  .  .  ■  \  r 

460 

:.)SU  fiS 

rfR  I T  E 

0  <I  Tt-  ( 

[  F     t  (  T 

IF     CD! 

IF     (01 

IF     ( P  L 

D  I S  T    = 

. 

If      t  LJ  I 

IF     (01 

IF     I  PI 

DIST     = 

IF     I  Q I 

I F     (01 

I F     (  R  L 

GIST     = 

.IF     UI 

IF     (01 

. 

IF       {r'L 

DIST    = 

IF     (    >I 

IF     (01 

J  1ST   .= 

LGL5    - 

aucui  . 

j  =  j 

. 

s  j  lq_ 

450 

j  =  j 

su  ro_ 

<+i2 

J  1ST     = 

I . 

J  .=     J 

L^L  I     = 

£D  ru  . 

4  5  5 

JIST    = 

. _ 

LGLl     = 

0GG0T 

lAI 


OATE  =  6/12  8 


19/35/56 


.470 


472 


J  =  J 
GO  Tu 
J  =  J 
LGL2  : 
GO  TO 
DIST  ■ 
J  =  J 
LGL2  = 
.GO  Tu 


0.5  '  P  L  T  '.  1.  ,  1  ) 
(  '  :    DIST  +  OSuMSf  J»LGLLjlLGL2,LGL3,LGL4.«LGL5.  iNQCUT.!  i 

(  I  (  p  1 .  0  .  6  ,  4X )  , 7 { I  3 , 4X  )  ) 
=  DSUMS  *  TSPAi.UJ) 

(  6  ,  9  3  3) 

6.,93-4)  DI.SI-»O.SUM.Sf  J, LGLl,  L^l2,LGL3,  LGL4  ,  LGL5  ,  OOGUT 

OTSP.N  -DIST)  .  LT.  (0  .5*PLT( 1, 1) ) )  GO  TO  600 

ST.-'.  .GI.  (DSUMS  t    0.33)1  GO  TO  450  .  . 

ST.LT.  (DSUMS  -  C.}?))     GO  Tu  452 
T(2,l  )  .00.  CO  GO  TO  ^+5  5 

DIST  -  PLTU  ,1)  *■     PLT(  2,  1  ) 
ST  .GT.  IQSUMS  f  J.  33))  G.Q  Tu  4  TO 
ST.LT.  (OSUMS  -  C.33))  Gu  TO  472 
T(3f  1  )  .GO.  O.Q)  GO  TO  +  75  .__. 

0  1  ST  -  PLT(2»1  J  «-  PLTl  3,  1  ) 
ST  .GT.  (OSUiS  +  0*33.11  GO  TO  43 0 
ST.LT.  (DSUMS  -  0.33))  GO  TO  432 
T(t,L)  .00.  0.0)  GO  TO  +35  „      _.         . 

JIST  -  PLT(3f  L)  ♦  PLTl 4, 1) 
ST  .  ,J  .     {  OSO. IS  +  ).5.3)  )  GO  IJJ  49.Q 
ST.LT.  (OSUMS  -  0.33))  50  TO  492 
tl  5. ,.!!_...  t:Q.  0.0)  GO  T.0..49.5  -_  .   .__ 

DIST  -  PLT(4,1)  *  PLT(5,  1.J 

ST  .0  1.  (OoOOS  t  '0.3.3))  00  TO  510. 

ST.LT.  (DSUMS  -  J. 33))  GO  TJ    512 

01  ST  -  0.7  +  PLT(1,1)  . 

LGL5  +  I 

=  NCGUT  +  L   .   .  . 

+  1 

46';     ...   .  .  . _.     

+  i 

'±6  i 

DIST  +  PLT(1,1) 

t  L 

LGLl  +  1 
4.6  0   .   . 

OIST  -  0.7  +  P L T ( 1 , 1 ) 

=  NGCUT  *■     1 

46  0 

LGL2  +  1 

460 . 

OIST  +  PLT( 1,1  J 
t_l  ._  .        .____ 

LGL2  +  1 
4  6  0  . , 
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G    LEVEL 

47  b 


431 


4  82 


*■     I 


435 


+     1 


J,     MOO    C 

gist  =  or st  -  :.7 

MQC-UT    =    N-UCUT     t     i 
IGL2    =    LGL?    +     1 
J    =    J    +     1      - 
GO    TO    46C 
J    =    J    +     1 
LGL  3    =    LGL3 
.GO    to    46;: 

JIST     =    0  1  ST 
J    =     J     +     1 
LGL  3    =    LGL3 
GO    T;J    460 
DIST    =    JIST    -    0.7 
NUC-UI    =    E4.UCUT    +    1 
LGL  3    =    LGL3     +     L 
.-     -    J    =..  J     fc_l 

go   ra  <+6-c 

.A  JO    J    =    J  --K..1    _ 
LGL4    =     LGL4 

GLi    TO    46L 

4^2     MS  T    =    0  1  ST 
_         J    =    J     +    1 

LGL^    =    LGL4 

GO     TO     4oC 

495    OIST    =    01  ST    -    0 

Mucin  =  Nucur  + 

LGL^    =    LGL4    +     i 

,__. J    =     J     +    .1 

GU    TO    46C 

J_=     J     ±     i       

LGL  5    =    LGL5    + 
GJ  JO    460 . 
DIST    =    OIST     + 

..LGL5  =  LGL5  + 
J    =     J    +     1 

.GO  TO.  460.  _  _  . 
OIST  =  .  DIST  + 
LGL  5  =  LGL5  + 
iNOCUT    =    NOCUT 

J  =   J   +  1 

GO  TO  460 
iVJCUT  =  .  \GCUT 
XLGLL  =  LGL1 

JLLGL2  =  LGL  2 
XLGL3  =  LGL3 

_X.LGL4  =  LGL4 
XLGL5  =  LGL5 

.CPLTvO    =    LW£LI 


•iAI   < 


+    PLT(  LI) 


DATE    =    67  128 


19/35/58 


PLT  (  1  ,  1  ) 

1 


+     PLT(  1,1) 


P  L  T  (  1  ,  1  ) 

1 


4     -     0.3     +     PLldri) 


,   5 1  n 


512 


515 


1 

2[_T(  1,1) 
1 


PLT(  1,1)     - 

1      .  .„ 

+     1 


.7 


.    __  60  C 


fc    1 


I  imLGU    f    £WE.LfU2)*XL_GL2    *    CWELOC  3 ) -XLGL3    + 


p  L:v  '   "'  4AIN  DATE  =  67128  19/35/53 

1CWEL0(4)*XLGL'i  *  CWELOt  51  *XLGL5 

C  • 

C  DETERMINE    THE    COST    OF    CUTTING     THE    PLATES. 

PTCUT    =    Mi  CUT 

CP-ICUI    =.   PTXUT    *    CHGMNH    *    LQ^.0.5    +    C .  0  L*  (  I  TH1-C  .  25  J  /C  .  125  )  J 


u 


C      DETERMINE  THE  CUSI  GF  ROLLING  THE  PLATES. 
C 

-TCROLL    =    CHGiVSNH    -  CULL    *     (  XLGL  1  ±XLGL2+XLGL3+XLGL4*XLGL 5  )  12 C  .  C 

C 

-C  -    CAL-CUL 41  £-1  HE. COST  OF  BROVXDXNG  STAGING..      .  

C      HEIGHT  OF  20«,  14',  B»,  AND  3',  TWO  EACH,  ARE  PROVIDED. 


C 


C 


u 


RIG  =  0.4  *  (20.0  *  12.4  +  9./  +  7.5)  *  CHGMNH 


C      MGw  CALCULATE  THE  ACQUISITION  COST  FOR  THE  PLATING." 

■  C 

CPLTNG  =  PLT< 1,3)*XLGL1/PLT(1,2)  *  PLT{ 2 , 3 ) *XLGL2/PLT ( 2, 2 )  + 

1  PlT(3,3H=/LGL3/:jLJ  (3,2)     f    PL  T  {  4,  3  )  *  <LGL4/PL  T  (  4  ,  ?  )     f 

2  PLT(5, 3)*XLGL5    /    ^LT(5,2) 

C  NOW    CALCULATE     THE     ACQUISITION    COST    FOR    THE    LONG  ITU  )~I NAL S . 

C._  ..  __ 

CTLGTL  =  XLGTNL  *  CSTLGL 

.  C 

C  CALCULATE    THE     WELDING    COST    FOR    THE    LONGITUDINALS. 


C 


C 


CWLTNL    =    XLGTNL    *    CHGMNH    *( CWLGTL*! . 12    +    0.151J 


CALCULATE    T  IE    COST    OF    CUTTING     T<ic    FLANGES    OF    THE    LONGITUDINALS. 

C      _ 

CCUTFT  =  CLGCUT  *  XLGTNL  *  CHGMNH 

C     .  . __ 

C      CALCULATE  THE  APPROXIMATE  COST  (PER  FOOT  HULL  LENGTH~F6R~THE~TRANSVEi 

-X     -Fi<\  it  ....  ESTIHAT-  THAT,.  PER  FT.  ..GIRTH,  CFRAME  =  0.7  *  CUSTKL. 

C         .  ' " " 

.«CT£RAM  =  .C7  *  COSTAL  *_IQI.SPN  /  FRH        __ 

C      CALCULATE  THE  TuTAL  COST  OF  BUILDING  THE  MIDSHIP  SECTIGN,  DOLLARS 

C      PER  FOOT  HULL  LENGTH. 

C 


CTOTAL  =  CPLTWD  +  CPTCJT  +  TC-.JLL  +  CRIG  +  CPLTNG  +  CTLGTL  + 
|L=y   1  CWLINL  t  QCUIf-.l  +  CI£8AM  +  COSTKL 

920  FORHAT  (']     CPLTWD  =',F15.6J 

921  EORMAI  L*C     C PTCUT  =»,F15.n) 

922  FOR  A  AT  (  '  C     TC  R  JL  L  = «  ,  F  15  .6  ) 

^li.    EORilAJ     CO  CRIG.       =  •  ,  F  L5  .  5  1  
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G    LEVEL 


l 


M  UN 


DATE    =    6712  8 


19/35/58 


924 
5  2o 
9^ 
927 
928 
9  29 
930 

931 

93  2 


F  (J  R  rt  A 1 
...'.:.  I 
FOR  i  ,  r 
F-OS  i-T 
FOR  I  AT 
;-  .  .  --,  . . ,  | 
F  ]  ;  \  A  T 

1     I  2  t  ' 
FOX MAI 

LX-L-GL  t 
FOR  'I AT 
tfRI  IE 
4  RITE 
rf  R I T  E 
rtR  I  TE 
iRLT-E 
*  R  I  T  t 
-W.RIXE 
4  RI  Tc 

-   A  r\  I  T  I : 

WKI  TE 
*a.L  IE. 
wRI  TE 
«ji£LLX£ 

STOP 
E&Q 


(  ' 
•  r 


t 


(  »C 

(  •  I 
(  '0 
LGL5 
(  '  0 
=  •  ,     F. 5 
(  '0 

(n  ,      9-3 


(6, 
16.  t 
(6, 

(o, 
(6, 
IA, 
16, 
L6, 
(  6 , 
LA, 
(6, 
LA., 


9  2 
9  2 
9  2 
-9  2 
)3 
9.3 

9  2 
9  2 
9  2 
92 

92 


< 
.2, 

C 
2) 
0) 
1  )C 
2) 
3) 
C  ) 
1  ) 


PLTNG  =« ,  c15.  i 
FLGTL  =  «  ,  F15.:>) 
1 1  T  I L  =  «  ,  F  1 5  . 6  ) 
UT-F  T  =  '- ,  F  i  5  .  6 ) 
I  ERA •  =» ,  Fl.5.6) 
I  )  T  -i  L     ='  ,F15.  6  J 


•G  LI 
12) 


,12, 


LGL2    ='  ,  12 


LGL3    = 


12, 


F5.2,'     XLGL3    = 


-  i 


LGL4    = 


F5.2, 


•     XLGL5    =•  ,   -F5,Z) 

W'ELD(  I  )     =•  ,  5(F8.3,5X)  ) 

C«ELQU>,     CaELJ(2),     CWELQ13X,     C.WEL0141,     C/JELCH5) 


LT 


iNl> 


4) 

5) 
61 

/) 


■jtcjt  -  . 

rCROLL 

C&IG  .       . 

LGL1,  LGL2,  LGL3,  LGL4-,  LGL5 

ALuLi,  XLGL2,  X.L.GL3,  XLGLA,  XLGL5 

CPLT  *iG 

CLLGIL  

CWLTNL 

CTFRAM 

CTJTAL   . 
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Determine 
TSPAN(I) 


Calculate: 
LGL1,  LGL2, 
LGL^,  LGL'-h, 

lgleI  ■tout 


Calculate: 
CTOTAL 


f       STOP   J 


Generate  an  array  of  lon- 
gitudinal intervals  for 
the  entire  midship  section, 


Locate  plates  around  the 
girth,  assuring  no  con- 
flicts with  longitudinals. 
Cut  plates  if  necessary. 


Determine  the  total  cost 
of  building  the  midship 
section. 


FIGURE  IV 
MAIN  PROGRAM  COSTDATA  FLOW  CHART 


EF2 
FF2 
EF2 
EF2 
EF2 

ef: 

EF2 
EF2 
hF? 
EF2 
EF2 
EF2 
EF2 
EF2 

JL.  .•-  -^* 
4*  Of*  ',» 

/G 

/SY 
/FT 
/FT 
/FT 
/G. 
EF2 
EF2 
EF2 
EF2 


5  5  1 
■-  5  i 
8  >I 
85  I 
85  I 
851 
8  5  I 
■35  1 
851 
85  I 
85  I 
85  I 
obi 
35  f 


SPRI 

06  FO 

C.7F0 

SYSI 

361 

37  1 

171 

37  1 
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SYSI  .U.T1 

VOL-  -S-6-R      !!"5S-=    GCSY0-3-.-  .-. 

SYS.l  .r  OR  I  LI  j 

VJL°   SE-i     nos-    ..CSV:.  !  . 

SYSI  .SSPLI 3 

VOL     SER    !^OS=    CCSY0  3. 

SYS1.MITLI3 

VOL     SE-R    NQS  =    CCSY03.'. 

L  IOO.COSTDATA 

V  !l      SER    MOS--    C-CSYOl  . 

TEMP .COSTDATA 

V;:L    SEH    NO-S  =    C-CSYOl. 

SYSOUT 

vHL     SER    WOSs .  .  -      .    . 

END    JF     5TEJ    L  PGM    =    IEWL 

?G4=*.L . SYSL ACL  ,CU\J= It , LT } 
S  Y  S  j  J  T  =  A 

QDfclA.ME-5.SY.SLN 

SYSOUT=A 

J.MT  =  5YSCp     .  


KEPT 

K  Lr>T 

KEPT 
\cJT 
P  A  S  S  E  0 
PASSED 
SYSOUT 


70606. 0  3 


EXEC 
4T  DD 
GL  DD 
01  DD 
0  1  0  0 
N  OD    * 
ALLOC,  f 
P  G  I  =  *  .  DD 
FT05.FOC  1 
FT07F001  ON  200 


0000017'. 
0000018. 
0Q.0Q019I 

00000201 

00CCC21: 


OR  GO.STQAIA  0 
JO  191 
ON  2 0  C 


SNL 


8. 

8. 
0. 
C. 
0. 

1. 
4. 

6. 

0. 

c. 

0. 
0. 

c. 
c. 

0. 


coo 

oo  o 

0 

0 

5  90 

7  17 

9.34 

0 

0 

0 

0 

o 

G. 


000 

000 


999 
29  9 
50  0 


33 


000009 

OOOOOo 


59.00   00 


Qnor.n 


.  u  ...  U.UU u 


500  uO 
50  799 
L6.LQ.Q 


300 


r> 
0 
0 

0 

Q 

140  000 


Q 

0 

i  7 

4 

9 


0.0 


0  0  0  c 
5259 
7970 


.0 

.0 
.0  ■ 
.Q 

f\ 

.J 

.0  0000  0 


7 

5 

li 

0 

_Q 

0 

0 

0 

.0 


.5000..   27. 559996123. 9479  90   3.9C00CC   3.90C00C 

.10" 

.29: 

.0 


9500 

1 2  G  0 


724000 


.0 

.c 

.0 
.0 


0.0 

.  _Q  ^0 
0 . 0 

.  ...0.0 
0.0 


D  I  S  T ,  0  S  i  J  m  S  t  J  »  L  G  L  1  ,  L  0  L  2  ,  L  0,  L  3  ,  L  G  L  4  ,  L  G  L  5  ,  0 1 )  C  i  J  T 
4.0000jG       4.7L.729;       1       1       0       0 


.0. 


.0   2 


0  I  S  T  ,  DSUtf  S  ,  J  »  I.  GL  1  ,  L  GL  2  ,  L  GL  3  ,  L  GL  4 1  L  GL  6  ,  NOCUT 
12. OC  K'OO        9  .46809-9        2        2        0 


DISTtOSUMSf JtLGLl,LGL2,LGL3,LGL4,LGL5»NOCUT 

L2.C000O0   ...   19. 32069a  .   __3_ 2 _JQ  . 


0 


DISTtOSUMSf  J.  LGLLtLGL2^LGL:i»LGL4tLGL5f.NOCUT 

20. 00000 0  L9. 4301 91  4  3  0 


DIST,DSUMSf  JtLGLlt  LGL2  »  LGL3,  LGL4,  LGL5,000'JT 
20.'   30000  25.15^1  10  5  _3_  Q 


2 


DIST,  J SUMS,  Jf  LGLlrl.  GL  2»-LGL  3,  L  GL4  ,  LGLt>  ,  NOCUT 
28.000000  32.088634  6  4  0 


■Q  Li    I '  ■■  ^  ■  i  ^  c i |_CJ-J i    *    i 


J > i   ,:i  /■  .  i   .:i   ^  .  ,.i.  i.- '  i  t 


-  Bh  ■  - 

DISTrOSUrtSr  Jf  LGLlrLGL-2rLGL3rLGL4Tk-GL5-rN0CUT 

^.  nn :  )c :     49 .6844  ry  6     c 

DIST,DSUMS, J,LGLl,LGL2TLGL3tLGL4»LGL5,  fOCUT 
^00001  0  6-2  .-9-756  77  '■)  1  0 


so. oc  1  )  )C 


LGL 
76.26bB fb 


DIST,DSUMS,  J»  LGL1,  LGL  Z  ,  LGL 3  ,LGL4  ,LGL5  ,.NOCUT 

sa.ooocoo    -85-.  3465.7*—   u     9 

D-IST»OSUMSi  J,  LGL'l*  LSL-2  t  LGL  3TLGL4,  LGL-5»N0£UT 
76.0000CC      93.862671      12      10       0 

DI  STt DSUMS f J  t  LGL 1 , LGL  2 , LGL  3 ,  LGL4 , LGL 5 , MOCUT 
34.00)000      1GQ.~79.7165     .  L3    _  LL        0 

D I  STrOSUMSr  J  r  LGL1 1  LGL  2  ,  L GL  3  ,  L  GL  4  ,  L  GL  r>  T  NOCU T 
92.0GOOOC      106.521164       L4       12        0 


0  I  ST , DSUMS, J , LGL 1, LGL 2 , LGL 3, LGL 4, LGL 5  * NGCUT 


}0C  111  ,6306  >L  t  ■  13  •) 

o  i  s  r ,  o  s  u  •!  s » j  r  l  j  l  :  t  l  ;l  2 »  l  g  l  > ,  l  g  >.  <v ,  l  g  l  *> ,  m  sjcu  t 


.  —    .  -j. 


}8.  )0C  :-00  Lis  .4*3246  -  16 
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14  ••     - 


BI-S-T,DSU:M-S,  JrLGLi»  LGL2-rtGl  s-» L-GL4*  LG13,   iOC   IT 


fr* 000000  121*234039  17  j.3 

E>I-ST-f  DSU-MSf-J-i  LGLlTL^L2TtGL-3rt-GLA-rL-GLS,  -<  >CUJ 


24 ■• ■  0  QOO 0  0  L-  2  5- .-  95  i  3  2  <t  |  •  ].  6  }--  0 

[-HC210-I     PRQGRM     I-NTFRKijPT —  iL-fl    J  j=      IS  FF150GGI    t2Q0A9-3o - 

[HC210I     PROGRAM     INTERRUPT —  OLD    PS4     IS  FF15CGGFA2C0A944 

IHC2  L   -I     PROGRAM     INTERRUPT  —  GLO--P5*     IS  FF150OOF.V2OOA952 

GWELD-(I)     =        13.665  21.3  •  ^  (V.-0—  J.G 


CO 


-  ^9  -. 

G.atT  40    =  2-9b»639  >4                                                        1 

CATGUT    =  2  *-<>24999  ■ 

FCRGLL    =  <l3.  j  ->  ,-♦  ^7  ->                                              .. 

CRIG         =  ■  1.-43*  79y  350 

LGLi     =lb  LGt2    =    0       LG-L-3    =    0       L-GL4    =    P-     LGL5    =    O 

KLGL1    =16.:  XLGL2    =    G.O       XLGL-3    =    Q-.G         XLG-L4    =    G.-0       XL&L5    =    0.0 

B'PtTNG    =  464.-^69-482 

CTLGTL - =  6^.2  -J9^3*                                                                                        

6W1-TIML    =  U3.-5GG4  73 

CtOTFT    =  -17.  -349  191                                                        

ETFRAtf    =  30  3.  7  23  380                                .                                       .                            ... 

cojtkl    -  VI.  ssmiZ 

CTOTAL    =  _1439r  20703-1-                                                            ... 
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C.   SUBROUTINE  T3LECI 

1...  DESCRIPTION 

Introduction 

Given  the  minimum  tolerable  spacing  of  longitudinals 
and  the  design  stress  criteria,  this  subroutine  calculates 
the  required  plating  thickness  using  criteria  for  the 
critical  stress  and  tertiary  stress  levels.  These  two 
thicknesses:  are  then  compared,  and  the  greater  selected. 
This  exact  value  of  thickness-  is  then  used  to  select  the 
minimum  standard  plate  thickness  that  will  satisfy  the 
design  requirements,  and  the  jninimum  spacing  is  modified 
by  the  ratio  of  the  selected  thickness  to  the  required 
thickness,.  This  span  is  then  used  as  the  initial  longi- 
tudinal spacing,. 


Inputs 


Symbol 
W5BMIN 
ST1CRK 
ST2E3T 
SGKDLT 
FRM 


Meaning 

Minimum  permissible  longitudinal 

spacing.   (Feet) 
Maximum  permissible  stress  at 

keel.   (Tons/In.  ) 
Estimated  value  of  secondary 

stress.   (Tons/In.2) 
Yield  stress  of  the  plating. 

(Tons/In.2) 
Transverse  frame  spacing.   (Feet) 


Calculated  Items 
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Output 


Symbol 


SGMA.CR 

ABAB 

C1CRIT 

CC1 

THPRIK 

PRESS 

C3CRIT 

ST3IIAX 

CC3 

IHTER 


Meaning; 

Limiting  stress  Intensity,  defined 
as'  1.25  X_(ST1CAL  +  ST2EST) 
(Tons/In.^) 

Plate  aspect  ratio. 

Coefficient  used  in  calculating  the 

critical  strength  of  the  plating. 
Intermediate  calculation  used  in 

determining  the  required  plating 

thickness  based  on  critical  stress 

criteria.. 
Plating  thickness  required  to  satisfy 

critical  stress  criteria.   (Inches) 
Hydrostatic  pressure  at  keel. 

(Tons/In.2) 
Coefficient  used  in  calculating  the 

tertiary  stress  strength  of  the 

plating.   (Tons/In.  ) 
Maximum  tolerable  intensity  of  the 

tertiary  stress.   (Tons/In.  ) 
Intermediate  calculation  used  in 

determining  the  required  plating 

thickness  based  on  tertiary  stress 

criteria. 
Plating  thickness  required  to  satisfy 

tertiary  stress  criteria.   (Inches) 
The  greater  of  TEPRIM  or  THTSR. 

(Inches) 


Symbol 
TBI 


W53ACT 


Meaning 

Plating  thickness  selected.   This 

is  the  least  existing  thickness 
that  exceeds  the  value  Til. 
(Inches) 

Tolerable  longitudinal  spacing  for 

selected  plating  thickness.   (Feet) 


Calling  Sequence 


Call  TSLECT  (W^BI-IIN,  ST1CRK,  3T22ST,  SG2IULT,  FRM, 
TEL,  W5BACT) 
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Sanrole  Input/Output         C Computer  tesx  run ) 

Input:  WJEBMIN  1.667  Feet  0 

ST1CBK  7-93  Tons/In.2 

ST2EST  l#3lf  Tons/In.  \ 

SGKULT  20.96  Tons/In.2 

FR1-I  8.00  Feet 

Output:        TKL  0.28125  Inches 

¥5BACT  1.769  Feet 


Fundamental   Equations 

ABA3 


W5BMIM 


IT  x  PRESS 


CC1  -  x  ACICRI?  x  ^>m-l6LTTT^92.S57 
V  10.9   X.  SGIIACR 

THFRTM  =     12-.  0  x  W5T3HIN 

CC1 

PRESS  =     ^%^ 

THTSR  =     ^2  XCcoBI:I:: 
W5BACT  =     -1  ^'V-31^1' 


Sample   Calculation  (Refer  to   subroutine  listing  and  flow 

chart,   following  pages; 

SGKACR  =  11.58 

AEA3  =  If. SO 

C1CRIT  =  7.225 

ccl   s  .   /  ^7»225  x  9.b7  :■:  UMUMT 

=  86.9 

20 

TEPRIM  =     #u 


56  J? 
=     0.230 


HI-;  =  30»23 
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PRESS  =  0,00601 
C3GRIT  =  0.0527 
ST3MAX  =  ll.yl 


rn,  _   /    11.71 _ 

OOJ  "  V  5.^&  x  .0627  x  .00601 

THTER  -  77PW  =  0.26*+ 
TH  =  0.26^ 

TH1  =  0.23125  inches 

5728125  x  i    667 
W5BACT  =       0.26V     X      *      ' 

=     1.77  feet 
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J    G  LEVEL  0,  MOD  C 


TSLECT 


DATE  =  67132 


19/43/5d 


703 

701 
704 

702 

7C6 

705 

760 


C 

c 


903 

901 
904 

902 
980 


600 

16 

405 


TSLECT I W5BM IN , ST 1CRK , ST2EST, SGMULTtFRM , TH1 , W58ACT  J 
25  *  (SI  1CRK  +  ST2E5T) 

/    M53MIN 

703,    703 


7 
.0 

3 

0 


70 


i. » 


702, 
0.4    * 


SUBROUTINE 
SGMACR    =    1 

A  BAB    =    FRtf 

IF     (AJA.i    - 

C1CRIT    =    7 

GJ    TO    780 

IF     (A  a  A  6    -    3.5) 

C1CRIT    =    7.0    + 

GO    TO    780 

IF(ABAb    -     1.9) 

C1CRIT    =    7.4    + 

GO    TO    780 

CICRIF    =    6.1    -    (  A6A6    -    1.9) 

ADO LIN  =  C1CRIT  *  3.1416  * 

BDULIN  =  1C.9  *  SGMACR 

CC1  =  SQRT  ( ADULIN/BDULIN) 


704,  704 

( (7.0  -  ABA6)/3.5) 


705,  7C6,  7C6 

0.7  *  (3.5  -  ABA3)/1.6 


/  1.9 
3. 1416 


*  13392.86 


ST1CAL  = 
T HP RIM  = 
YPTMIN  = 
ZPTMIiM  = 
TERTIARY 


*    12.)    /    CC1 


SUCRK 
CW5BMIN 

0.0 
0.0 
STRESS    CALCULATION 


902,  904,  904 

+  0.0012  *  ((ABAB 


A3HEEL  =  0.5236 

Dl  =  26.231247 

H1AMDK  =  4.C 

H1DFL  =  14.5 

XL13P  =  407. 

N3ELTS  =  1 

CALL  HOWTR  ( A3HEEL , YPTMI N , Dl , HI AMDK , H10FL , NBELTS , XL 13P, ZPTM I N , HM) 

PRESS  =  10.445  *  HM)  /  2240. 

IF  IA8AB  -  1.4)  901,  903,  903 

C3CRII"  =  0.0627  ' 

GO  TO  930 

IF  (ABAB  -  1.2) 

C3CRIT  =  0.0ol5 

GO  TO  980 

C3CRIT  =  0.057  +  0.0C09  *  (ABAB  - 

ST3MAX  =  SGMULT  -  ST1CAL  -  ST2EST 

CC3  =  SQRT  (ST3MAX  /  (5.46  *  C3CRIT 

THTER  =  (12.0  *  W5BMIN)  /  CC3 

IF  (THTER  .GT.  FHPRIM)  GO  TO  600 

TH  =  THPRIM 

GO  TO  16 

TH  =  THTER 

IF( (TH  -  0.375) .GT. 

IF  ( ( TH  -  0.25)  .GT 

TH1  =  0.25 

GO  TO  900 


-  1.2)  /  0.2) 


1.0) 


*  PRESS) ) 


0)  GO  TO  401 
,  0)  GO  TO  407 
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V  G  LEVcL  0,  MOO  0 


TSLhCT 


DATE  =  67132 


19/43/58 


407  IF  UTH  -  0.28125)  .GT.  0)  GU  TO  409 

TH1  =  G.2Jl?5 

GJ  JO  9  00 
409  IFUTH  -  0.3125)  .GT.  0)  GO  TG  411 

TH1  =  0.3125 

GO  TO  900 
411  IF  UTH  -  0.34375)  .GT.  0 )  GO  TO  413 

TH1  =  0.34375 

GO    TO    900 
413    TH1     =    0.375 

GO    TO    900 
401     IFUTH1    -     1.0).GT.    0)     GO    TO    5  01 

IFUTH    -    0.4375J.GT.    0)    GO    TO    503 

TH1     =    0.4375 

GO    TO    9  00 
503    IFUTH    -    0.50)     .GT.    0)     GO    TO    505 

TH1     =    0.500 

GO  TO  900 
505  IF  UTH  -  0.625)  .GT.  0)  GO  TO  507 

TH1  =  0.o25 

GO  TO  900 
507  IFUTH  -  0.75).GT.  0)  GO  TO  509 

TH1  =  0.75 

GO    TO    900 
509     IFUTH    -    C.875)     .GT.    0)     GO    TO    511 

TH1    =    0.875 

GO    TO    900 
511     IFUTH    -    0.9375)     .GT.    0)     GO    TO    513 

TH1    =    0.9375 

GO  TO  900 
513  TH1  =  L.000 

17  FORMAT  { 'REQUIRED  PLATING  THICKNESS  EXCEEDS  ONE  INCH.') 
501  WRITE  (6,  17) 
900  W53ACT  =  (TH1  *  W58MIN)  /  TH 

RETURN 

END 
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1 

Calculate: 
SGilACR,  ABAB 

! 

Determine  C1CRIT 

] 

1 

Calculate: 
CC1,  ST1CAL, 
and  TKPRIK 

! 

1 

Calculate  PREJ3 

1 

Calculate  C3CRIT 

N 

if 

Calculate  C1CRIT 
(a  function  of 
ABAB) 


Calculate  the  re- 
quired thickness 
from  critical 
stress  criteria. 


Determine  C3CRIT 
(a  function  of 
ABAB). 


FIGURE  V 
SUBROUTINE  TSLECT  FLOW  CHART 
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V 


Calculate: 
ST3KAX,  CC3, 
and  THTEH 


Select  TIT  = 
greater  of 
TKPRIM  and  THTER 


Adjust  Tia  on 
basis  of  TH.  Cal- 
culate WpBACT. 


C 


RETURN 


7^ 


J 


Determine  the  requir- 
ed plating  thick- 
ness from  tertiary 
stress  criteria. 


Select  the. required 
pi  a  t  in g  t hi cknes s . 


Select  the  least 
existing  plating 
thickness  that 
satisfies  the  TH 
requirement .   De- 
termine the  allow- 
able longitudinal 
span. 


FIGURE  V  -  Continued 
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D.      SUBROUTINE  HDVJTR* 


1.   DSSCRIPTION 

Introduction 

This  subroutine  calculates  the  maximum  hydrostatic 

head  of  -water  existing  at  a  designated  point  on  the  shell. 

Three  loading  conditions  are  evaluated y  using  current 

procedures  employed  "by  the  Naval  Ship  Systems  Command  in 

the  design,  of  ships: 

L.  The  maximum  head  is:  calculated  for  the 
effects  of  the  full  load  draft  with  half  the 
height  of  a  standard  wave  profile  superposed. 
2v  The  maximum  head  is  calculated  for  the 
condition  of  the  ship  at  full  load  draft  heeled 
over  some  specified  angle.  In1  the  case  of  this 
analysis,  the  heel  angle  is  fixed  at  thirty 
degrees. 

3*  Finally,  the  maximum  head  resulting  from  the 
superposition,  of  a  specified  design  head  of  water 
on.  the  main  deck  is  comouted. 


* 
Subroutine  HDWTR  is  based  on  a  subroutine  of  the  same 
name  developed  by  the  Applied  Mathematics  Laboratory  of  the 
David  Taylor  Model  Basin,  Washington,  D.  C  20007. 
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After  the  individual  heads  =ire  determined  for  the 
various  conditions,  the  maximum  value  is  selected  as  the 
output  from  the  subroutine - 


Inputs 


Symbol 

A3H33L 

B3P 

Dl 

ELAIIDK 

HLDFL 

N3ELTS 

XL1BP 

ZK1P 


Meaning 

Specified  maximum,  heel  angle.   (Radians) 

Half  breadth  of  point.   (Feet) 

Depth  of  hull.   (Feet) 

Specified  design  head  of  water  above 

main  deck.   (Feet) 
Design  full  load  draft*   (Feet) 

llumber  of  points.   (=1) 

Length  between  perpindiculars.   (Feet) 

Keight  of  point  above  keel,   (Feet) 


Calculated  Items 
Symbol 

EMAKDK 

HE 

HMO 

EL 
THM 


Meaning 


u. 


Eead  of  water  due  to  design  head  of 

■water  on  main  deck.  (Feet) 
Eead  of  water  due  to  heel.  (Feet) 

Head  of  water  due  to  wave  profile.  (Feet) 

Draft  due  to  standard  wave  profile.   (Feet) 

Draft  due  to  head  of  water  above  main 
deck.   (Feet) 


Output 


Symbol 
EH 


Calling;  Sequence 


Meanin  g 
Maximum  head  of  water  to  point.   (Feet) 


Call  KDV/TR   (A3ESSL,  3JP,  Dl,  KLAKDK,  ELDFL,  HBELTS, 
XL1BP,  ZK1P,  HH) 
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Sample 

Input/Out  o 

ut    (C 

bmputer 

0. 

test 
■  5236 

run) 

Input: 

A3HEEL 

radians 

33P 

39. 

,83 

feet 

Dl 

70, 

,00 

feet 

ELAIZDK 

0. 

,00 

feet 

IUDFL 

26, 

,00 

feet 

NBELTS 

1 

XL13P 

580. 

,00 

feet 

ZK1P 

Ih, 

,00 

feet 

Output?  HM  30.31         feet 

Fundamental  Ecuations 


HI   -  KLDFL  +  0.55  x    \/  XL13P 
HMO  =  HI  -    ZK1P 

HMHEEL  =  D  x  Cos    (1.5708  -  B  -  A3HEEL) 
B  =  Arctan     HLDFL  -  ZK1P 

53jir 
D  =;      V~B3P2     +      CH1DFL  Z  ZK1P)2" 

EKAMDK  =  THM  -  ZKLP 

THK  =»  Dl   +  ELAMDK 


Sample  Calculation    (Refer  to  subroutine  listing  and  flow 

chart,  following ~ pages) 

EL  =  26.00  +  0.55  x  2^.08319 
=  ^9.2^-53 

EHO  =  39.2^58  -  1W0 
=  25.2^8 

D  =  1/  15ci5.i+3  +  1^ 
=   k*52 

B  =-•  Arctan   (0.3012) 
=  0.2926 

HHHEEL  =^1.53  x  Cos    (0.75^6) 

=  ^o.u 

EM  =  HMHEEL  =  30.  ^1   feet. 
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G  LEVEL  0,  HOD  0 


C 

c 
c 


c 
c 

c 


c 
c 
c 


HDWTR  DATE  =  67132  19/43/53 

SUBROUTINE  HDWTR ( A3HEEL, B3P ,Dlt HlAM0KtHlDFL,N8ELTSf XL1BPTZK1P,HM) 
CALCULATE  DRAFT  "."TO  STANDARD  WAVE  HEIGHT 

HI  =  HlDFL  +  0.55*SQRTiXLlBP) 
IF{ ZK1P  -  HI)  L,2f2 
1  HMO  =  HI  -  ZK1P 

GO  TO  3 

2   HMO  =    0.0 

CALCULATE  HEAD  OF  wATEK  DOE  TO  HEELED  WATERLINE 

3  IF  (ZK1P  -  H1DFL)  4,7,5 

4  0=  SQRT(B3P**2  +  (H1DFL  -  ZK1P)**2) 
IF  (B3P)  19,19,18 

19   B  =  1.5708 
GO  TO  20 
18  B  =  ATAN  UH1DFL  -  ZK1P)/83P) 
20  IF  (B  -  1.5708  +  A3HEEL)  15,  16,  17 

15  HMHEEL  =  D*C0S(1.5703  -  A3HEEL  -  3) 
GO  T\J    10 

16  HMHEEL  =  D 
•  GO  TO  10 

17  HMHEEL  =  D*COS(B  -  1.5708  *■  A3HEEL) 
GO  TO  10 

5  0=  SORT  <B3P**2  +  (ZK1P  -  H1DFL)**2J 
B  =  ATAN  UZK1P  -  H1DFD/33P) 

IF  (  B  -  A3HEEL)  6,8,8 

6  HMHEEL    =    D*C.OS(  1 .  5708    -    A3HEEL    +    3) 
GO    TC    10 

7  HMHEEL    =    i>3P    *    SIiM(A3HEEL) 
GO    TO    10 

8  HMHEEL    =0.0 

COMPARE  HEADS  CALCULATED  THUS  FAR  AND  DETERMINE  THE  MAXIMUM 

10  IF  (HMO  -  HMHEEL)  11,  12,  12 

11  HM  =  HMHEEL 
GO  TO  100 

12  HM  =  HMO 
100  CONTINUE 

IFIH1AMDK)  40,40,41 

CALCULATE  DRAFT  DUE  TO  HEaD  OF  wATtR  A30VE  MAIN  DECK 

41  THM  =  Dl  +  HI  AMOK 
HMAMDK  =  THM  -  ZK1P 
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G  LEVEL  0,  MOD  0 


HDrtTK 


DATE  =  67132 


19/43/53 


C      COMPARE  HEADS  AND  DETERMINE  FIi^AL  MAXIMUM  HEAD  AT  POINT 
C 

IF  (HMAMDK  -  Hrt)  45t45t46 
46  HM  =  HMAMDK 
45  CONTINUE 
40  RETURN 
END 
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Calculate 
HMO 


Calculate 

HKHESL 


Calculate: 
HKAKDK 


HM  =-  the  greatest 
of  HMO,  HMHE2L, 

or  HKAKDK 


(    RETURN  J 


Calculate  the  head  due 
to  the  standard  wave 
profile. 


Calculate  the  head  due 
to  the  specified 

heel  angle. 


Calculate  the  head  due 
to  the  design  head  of 
water  above  the  main 
deck. 


Select  the  maxi-u:.; 
hydrostatic  head  act- 
ing at  the  point. 


FIGURE  VI 
SUBROUTINE  HDWTR  FLOW  CHART 
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E.   SUBROUTINE  CSPACS 

1.   DESCRIPTION 

Introduction 

This  subroutine  calculates  the  maximum  permissible 
span  to  the  next  (upper)  longitudinal  on  the  midship 
section.  The  hydrostatic  head  existing;  at  the  lower 
edge  of  the  span  is  employed  for  this  calculation.   The 
permissible  spacing  is  calculated  on  the  basis  of  three 
different  criteria,  as  described  by  St.  Denis  CO  : 

1.  The  permissible  spaa  is  calculated  on  the 
basis  of  the  maximum  compressive  stress  exerted 
on  the  plating. 

2.  The  permissible  span  is  calculated  on  the 
basis  of  the  tolerable  tertiary  stress  level  - 
caused  by  plate  binding  due  to  hydrostatic 
pressure  normal  to  the  plate  surface. 

3.  Finally,  stability  requirements  for  the 
unsupported  plate  are  used  to  evaluate  the 
permissible  span  between  longitudinals. 

Once  the  three  values  of  the  tolerable  span  have 
been  determined,  the  lesser  value  of  the  three  is  selected 
as  the  limiting  saan. 
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Inputs 


Symbol 


ST1CRK 

ST1CHD 

ST2EST 

SGMULT 

FRM 

THL 

YPT.MIN 

ZPTHIK 

W53PRC 


Maximum  permissible  stress  at 

keel.   (Tons/In.'"-) 
Maximum  permissible  stress  at  p 

deck  centerline.   (Tons/In.  ) 
Estimated  value  of  secondary 

stress.   (Ions/In.2) 
Yield  stress  of  the  olating. 

(Tons/In.2) 
Transverse  frame  spacing.   (Feet) 

Plating  thicloiess.   (Inches) 

Half  breadth  of  preceding  longi- 
tudinal.  (Feet) 

Height  of  preceding  longitudinal 
above  base  line.   (Feet) 

Span  to  oreceding  longitudinal. 
(Feet) 


Calculated  Items 
Symbol 
ZNAXIS 

ST1CAL 

SG1-IACR 

ABAB 
CI  GRIT 

W^BTLl 
PRESS 

C3CHIT 


Meaning 

Location  of  neutral  axis  of 

DD-931  midship  section  above 
base  line.   (Feet) 

Calculated  primary  compressive 
stress  at  preceding  longi- 
tudinal.  (Feet) 

Limiting  stress  intensity, 

defined  as  1.25  x   (ST1CAL  + 
ST2EST)   (Tons/In.2) 

Aspect  ratio  of  preceding  span. 

Coefficient  used  in  calculating 
the  critical  strength  of 
the  plating. 

Permissible  span  due  to  critical 
strength  criteria.   (Feet) 

Hydrostatic  pressure  at  pre- 
ceding longitudinal.   (Tons/ 
In.2) 

Coefficient  used  in  the  tertiary 
stress  calculation. 
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Symbol 


W5BTL3 

SGMCRT 

XITOSTF 
ST3MAX 
VJ5BTLS 


Meaning 


Permissible  span  clue  to  the 

tertiary  stress  calculation. 

(Feet) 
Critical  stress  intensity  for 

a  Danel  of  plating.   (Tons/ 

In*.2) 
Required  number  of  stiff eners 

for  a  plate  panel. 
Greatest  tolerable  tertiary 

stress.   (Tons/In.  ) 
Tolerable  span  on  basis  of  plate 

stability  criteria.   (Feet) 


Out out 


Symbol 
W5BT0L 


Meaning 


Maximum  tolerable  span  to  next 
longitudinal.   (Feet) 


Calling  Seaue.nce 


Call  CSPAC2  (ST1CRK,  ST1CRD,  ST2E3T,  SGMULT,  FRM. 
TEL,  YPTMIF,  ZPT11III,  W^BPRC,  W^BTOL) 


Sample  Input/Output 
Input: 


(Computer  test  run) 


ST1CHK 

7.93 

Tons/In.^ 
Tons/ In. % 
Tons/In. % 
Tons/In. 

ST1CRD 

6.00 

ST2EST 

1.3^ 

SGMULT 

20.98 

FRM 

8.00 

Feet 

TH1 

0.28125 

Inches 

YPTMIIT 

1.768 

Feet 

ZPTMIN 

0.0^5 

Feet. 

W^BPRC 

1.769 

Feet 

Output:   W5BT0L 


1.772 


Feet 


Fundamental  Equations 


ZNAXIS  = 
ST1CAL  = 


I 


ST1CRK  x 


ICRK  + 

zi:axis  -_zptmi:; 

ZNAXIS 
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A3AB  =     FRM/W5BPRG 

W^BTLl   =     -r^2:"-QCC1 

cm   -  v  /  cicaiT  x  ^T52-~TTl3Q2^ 

LU1  ~  V        10.9  x  SGMACR 

PRESS  =  0.^5  X  H  1/22^1-0 . 
ST3KAX  =   SGMULT  -  ST1CAL  -  3T2EST 
W5BTL3  =  T1i2XQCC^ 


CC3  "  V  $.k6   x  G3CR] 


X 

UT  x  PHSS3 


SGMCRT  =  ^°  S  ^.l^lo2  x  1^92.86  x  TET 

10. b  x  3°'^0« 


ra0STF  =  \/  iii     - 1-° 


Sample  Calculation    (Refer  to  subroutine  listing  and  flow 

chart,  following  pages) 

ZNAXIS  =  26.23125  x  2.1'M 
=     1^.9? 

ST1CAL  =  7.93  ^(w^W) 
=  7.90 

ABAB  =  S. 0/1. 769 

CC1  =    /  y.203  x  3.lM-lb2"::  13392.86 
V         10.9  x  11.56' 
=  87.5 

W5BTL1  =  0.2cl25  x  87.5 
J  12*0 

PRESS  =  0.^5  x  30.19/22^0 
=  0.006 

ST3M&X  =  11.7^ 
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f~       "iT'.TV" 
cc3  ~   V  5.^-6  x  .0627  x  .00( 
=    Zlil 

W5BTL3   =     Q.2S125  x  75.7 

12.0 
=     1.772 


SGMCRT  =  1.076' 

='  2.23 

W5BTLS  =  2.2^5 

W5BTCL  =  1.772  feet 


-  1.0 
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f  G  LEVEL  0,  MOD  0 


CSPACE 


DATE  =  67132 


19/43/53 


C 

c 

C 

c 
c 
c 
c 
c 
c 


c 
c 
c 


SUBROUTINE  C  SPACE  (  ST  1CRK  ,  ST1CRL),  ST2EST  ,  SGMULT  ,FRM,  TH1  ,YPTMIN, 
LZPTMIN » W5BPRC  t  W5ST0L ) 

W5BT0L  IS  CALCULATED  ON  THE  dASIS  OF  THE  PRIMARY  AND  TERTIARY 
STRESSES.   THE  LESSER  VALUE  UF  THE  TWO  1^  THEN  SELECTED. 
THIS  VALUE  OF  W58TOL  IS  THEN  COMPARED  WITH  THE  MINIMUM  SPAN 
PERMITTED  ON  THE  3aSIS  OF  THE  HtQLlltitO    NUMBER  OF  STIFFENERS  FOR  A 
PLATE  WITH  THICKNESS  TH1  AND  A  WIDTH  OF  5.0  FEET. 

BASIC  METHODOLOGY  OF  SUBROUTINE  TSLECT  IS  USED  FOR  THE  PRIMARY  STRESS 
CALCULATION. 

ZNAXIS  =  26.23125  *  (ST1CRK  /  (ST1CRK  +  ST1CRD)) 

STICAL  =  ST1CRK  *  A6S  ((ZNAXIS  -  ZP TM I N ) / ZNAX I S ) 

SGMACR  =  1.25*(ST1CAL  *■    ST2EST) 

ABAB  =  FRM  /  W5BPRC 

IF  (A3A8  -  7.C)  701,  703,  703 

703  C1CRIT  =  7.0 
GO  TO  780 

701  IF  (A3A3  -  3.5)  702,  704,  704 

704  C1CRIT  =  7.0  +  ( C .4* ( ( 7. 0-A8A8 ) /3 . 5 ) ) 
GO  TO  730 

702  IF  (ABAB-1.9)  705,  706,  7Qb 

706    C1CRIT    =    7.4    ♦    0 . 7* ( 3 . 5-A3A6 ) / 1 .6 
GO    TO    780 

705  C1CRIT    =    8.1    -     (ABA3-1.9) /1.9 

780  ADULIN  =  C1CRIT  *  3.1416  *  3.1416  *  13392.86 
BDULIN  =  10.9  *  SGMACR 
CC1  =  SQRT  (ADULIN/8DULIN) 
W5BTL1  -  (TH1  *  CC1)/  12. 

TERTIARY  STRESS  CALCULATION. 

.  DATA  A3HEEL,Dl,HlAMDK,HlDFL,NBELTS,XLlaP/.5  236,26.23  12  5,*., 14.5, 1, 

1  40  7./ 

CALL  HDWTR  { A3HEEL , YP TM IN , Dl , HI  AMOK , H10FL , NBELTS , XL 13P, Z PTM I N , Hrt ) 
PRESS  =  0.445  *  HM/2240. 
IF(A3A8  -  1.4)  901,  903,  903 

903  C3CRIT  =  0.0627 
GO  TO  930 

901  IFIA3AB-1.2)  902,  904,  904 

904  C3CRIT  =  0.061D  +  0 . CO  12* ( ( ABAb-1 . 2 ) /C . 2 ) 
GU  TO  980 

902  C3CRIT  =  0.057  +   0.0225* (A8AB-1 .0) 
980  ST3MAX  =  SGMULT  -  STICAL  -  ST2EST 

CC3  =  SQRT  (ST3MAX/(5.46*C3CRIT*PRESS) J 

W53TL3  =  TH1  *  CC3  /  12.0 

IF  (W5BTL1  .GT.  W53TL3)  GO  TO  410 
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G  LEVEL  Of  ;MUD 


CSPACE 


JATE  -  57132 


19/43/58 


410 


600 


601 


W53T0L  =  W5  3TL1 
GO  TO  600 
W58T0L  =  v.'5  8TL3 

PROVIDE  FOR  ADEQUATE  PLATE  STAblLITY  BY  LIMITING 
3ASIS  UF  THE  NUMBER  OF  STIFFENERS  REQulKEO  FOR  A 
WIDTH  UF  FIvE  FEET. 


W53T0L  ON  THE 
PLATE  WITH  A 


SGMCRT=4 

XNOSTF    = 
W53TLS    = 


*( 3.1416**2)*13392.86*ITH1**2)/(10.8  *  3600.) 


) 


SQRT  (SGMACR  /  SGMCRT 
ABS  (5.0/XNOSTF) 

IF  (W5BT0L  .LT.  W5BTLS)  GO  TO  601 

W5BT0L  =  W5BTLS 

CONTINUE 
RETURN 

END 


1.0 


-  Ill  - 


Calculate: 

ZNAXIS,  ST1CAL, 
SGMA.GR,  ABA.B 


Calculate 
W?BTL1 


Calculate: 
V753TL3 


Set  W53T0L  =  to 
lesser  of  V/^3TL1 
and  W5BTL3 


Calculate: 
W^BTLS 


W5BT0L  =  the  least 
of  W5BTL1,  V5BTL3, 
or  W53TLS 


f     RETURN  J 


Calculate  the  tolerable 
spacing  due  to  primary 
stress. 


Compute  the  tolerable 
spacing  due  to 
tertiary  stress. 


Calculate  the  tolerable 
spacing  from  the 
stability  standpoint. 


Select  the  limiting 
spacing. 


FIGURE  VII 


SUBROUTINE  CSPACE  FLOW  CHART 


-  I"1  2  - 


F.   SUBROUTINE  CLONGL 

1*  DESCRIPTION 

Introduction 

Subroutine  CLOIIGL  is  designed  to  calculate  the  re- 
quired section  modulus  for  the  longitudinal-plating 
combination,  as  veil  as  the  minimum  permissible  radius 
of  gyration.   The  resulting  computation  is  concerned 
solely  with  strength  criteria,  as  the  criteria  for  plating- 
longitudinal  stability  are  determined  later  in  the  main 
program. 


Ir,  puts 


Symbol 

ST1CRK 

ST1CRD 

ST2ZST 

SGMULT 

FRK 

TEL 

YPTLOC 

ZPTLOC 

W^BPRC 


Meaning 

Maximum  permissible  stress  at 

keel.   (Tons/In.2) 
Maximum  permissible  stress  at  0 

deck  centerline.   (Tons/In.  ) 
Estimated  value  of  secondary 

stress.   (Tons/In.  ) 
Held  stress  of  the  plating. 

(Tons/In.2) 
Transverse  frame  spacing.   (Feet) 

Plating  thickness.   (Inches) 

Half  breadth  of  longitudinal. 
(Feet) 

Height  of  longitudinal  above  base 

line.   (Feet) 
Span  from  ureceding  longitudinal. 

(Feet) 
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symbol 
RJ?GYRA 


Meaning 


Required  radius  of  gyration  of 
plating-longitudinal  combl 

nation.   (Inches) 


Calculated  Items 
Symbol 
XR^GYR 

PRESS 
ZNAXIS 

ST1CAL 
WIDTH 

EWIDTH 

XMB1LG 

ST3LGL 


Meaning 

Calculated  radius  of  gyration 
required  for  given  longi- 
tudinal location.   (Inches) 

Hydrostatic  pressure  at  longi- 
tudinal.  (Pounds/In.  ) 

Location  of  neutral  axis  of  DD-931 
midship  section  above  base  line. 
(Feet) 

Calculated  primary  compressive 

stress  at  longitudinal.   (Feet) 

Permissible  span  for  cases  where 
span  exceeds  50 .0  x  Till. 
(Inches) 

Effective  width  of  plating,  dic- 
tated by  the  lesser  of  WIDTH 
and  12.0  x  W^BPRC.   (Inches) 

Bending  moment  at  mid- span  of 

plating-longitudinal  combination. 
(Inch-Pounds) 

Tolerable  level  of  tertiary  stress. 
(Tons/In.2  converted  to  Lb. /In.2) 


Out out 


Symbol 
R5GYHA 

XMD1KN 


Meaning 

Required  radius  of  gyration  of 
plating-longitudinal  combi- 
nation.  (Inches) 

Required  section  modulus  of 

plating-longitudinal  combi- 
nation.  (In. 3) 


Calling  Sequence 


Call  CLONGL  (ST1CRK,  ST1CRD,  ST2E3T,  SGITJLT,  FRK, 
TH1,  W5BPRC,  R5GYRA,  XMDlMff,  YPTLOC, 
ZPTLOC) 
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Saaple  In nut/Output    (Computer  test  run) 


Input : 

ST1CHK 

7.93 

Tons/In. % 
Tons/In. p 

* 

ST1CHD 

6.00 

- 

ST2EST 

1.3^ 

Tons/In ..« 

SGMDLT 

20.98 

Tons/In.  *- 

FRM 

8.00 

Feet 

TKL 

0.28125 

Inches 

YPTLOC 

1.768 

Feet  . 

ZPTLOC 

0.0^-5 

Feet 

W53PRC 

1.769 

Feet 

R5GYRA 

3.097 

Inches 

Output: 

R5GYHA 

3.097 

Inches 
In. 3 

XMD1MH 

8.277 

Fundanental  S'auations 

XR?GYR  = 

12.0  x  FRM 

* 

31. 

press  = 

0.^5  x  HM 

ZNAXIS  =  26.23125  X  ^-8T1CRK 
ST1CAL  =  ST1CRK  x  ^A"': 
WIDTH  =   50.0  x  TKL 


<Kj 


ZEAXIS 


XMB1LG  =  18.0  x  PRESS  x  EWIDTH  x  FRM2 

ST3LGL  =-  SGKOLT  -  ST1CAL  -  3T2E3T 

ST3LGL  =  22^-0.  x  ST3LGL 

XMD1M  =  ^::B1LG 
ST3LGL 


Sample  Calculation    (Refer  to  subroutine  listing  and  flow 

chart,  following  pages) 

XR5GYR  =  2£i  =  3.097 

PRESS  =  0.¥f?  x  3'0.ll+ 
=  13^+ 

ZNAXIS   =     26.23125  x      7*V\' 

13-93 

ST1CAL  =     7.93  X  llf'Q^  "   P'Qlf^ 

J.T-.    /     1 
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W5BPRC  =  21.2?,  inches 

WIDTH  =   Im-.QS 

EWIDTH  =  WIDTH  =  1^.06- 

XM31LG  =  13.  x  13. h   x  lli-. 06  x  6k, 
=•  217,000 

ST3LGL  =  26 , 320  psi 

xmdimn  =  2iMgg 

=  8.2S 
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LEVEL  Ot  MOO  0  CLONGL  DATE  =  67132  19/43/53 

SUBROUTINE  CLONGL {  ST1CRK ,ST1CRD, ST2EST, SGMULT,FRMfTHl,W5BPRC, 
1  R5GYRA,XMDlMN,YPTLOC,ZPTLOC) 

XR5GYR  =  12.0  *  FRM  /  31.0 

IF  (XK5GYR  -  R5GYRA)  201,  203,  203 
203  R5GYRA  =  XR5GYR 
201  A3HEEL  =  0.5236 

AAA  =  W58PRC 

Dl  =  2o. 231247 

H1A.MDK  =  4.0 

H1DFL  =  14.5 

N3ELTS  =  1 

XL18P  =  4C7. 

CALL  HDWTR  ( A3HEEL , YPTLOC , D  1 , H 1  AMOK , HI DEL ,N BELTS , XL  1 BP , ZPTLOC ,HM) 

PRESS  =  0.445  *  HM 

ZNAXIS  =  26.231247  *  ST1CRK  /  (ST1CRK  +  ST1CRD) 

ST1CAL  =  ST1CRK  *  ABS  {{ZNAXIS  -  ZPTLOC ) /ZNAXIS ) 

W53PRC  =  12.0  *  W56PRC 

WIDTH  =  50.0  *  TH1 

IF  (W53PRC  .LT.  WIDTH)  GO  TO  600 

EWIDTH  =  WIDTH 

GO  TO  601 

600  EWIDTH  =  W5BPRC 

601  XMB1LG  =  18.0  *  PRESS  *  EWIDTH  *  (FRM**2) 
ST3LGL  =  SGMULT  -  ST1CAL  -  ST2EST 
W5BPRC  =  AAA 

ST3LGL  =  2240.  *  ST3LGL 
XMD1MN  =  XMB1LG  /  ST3LGL 
RETURN 
END 
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NO 


Calculate: 
XB5GYR 


YES 


R^GYR  =  XR^GYR 


Calculate: 

PRESS,  ZNAXIS, 
ST1CAL,  and 
WIDTH 


Determine  the  limiting 
value  of  the  radius 
of  gyration. 


Do  the  preliminary  com- 
putations for  deter- 
mining the  effective 
width  of  plating. 


FIGURE  VIII 
SUBROUTINE  CLOIIGL  FLOW  CHART 
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Select  3V/IDTE 


Calculate: 

XMB1LG,  ST3LGL, 
and  XMD1M 


Determine  the  required 
section  modulus  for  the 
plating-longitudinal 

combination. 


f    RETURN  J 


FIGURE  VIII  -  Continued 
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G.   SUBROUTINE  PMINER 

1  .  '  DESCRIPTION 

Introduction 

The  characteristic  data  delineating  the  contribution 
of  the  half  breadth  plating  to  the  total  area  and  section 
modulus  of  the  midship  section  were  generated  by  subroutine 
WTSKOD  for  all  available  plating  thicknesses,  up  to  one  inch 
maximum.   This  information  is  imbedded  in  subroutine  PMI1TER 
in  such  a  way  that,  given  an  input  of  the  plating  thickness , 
the  appropriate  information  detailing  the  effects  of  the 
placing  on  the  total  area  and  section  modulus  is  provided. 

Inputs 

Symbol  Meaning 

THL  .  Plating  thickness.   (Inches) 

Calculated  Items 

Hone.   Subroutine  PMINER  merely  selects  the 
correct  values  of  BEI-DK,  ARSAPT,  X2.0MIII,  and  XINSR  (defined 
below)  for  the  given  input  value  of  plating  thickness. 


-  120  - 


Ottt  nut 


Symbol 
BLI-iOM 

AKSAPT 
XMOMIN 

XINER 


Meaning 

Moment  about  the  base  line  for 
the  half  breadth  plating. 
(Inches   Feet) 

Total  area  for  the  half  breadth 
plating.   (Inches2) 

Net  moment  of  inertia  about  the 

base"  line  for  the  half  breadth 
plating.   (Inches2  Feet^) 

Moment  of  inertia  of  the  total 

midship  section  plating  about 
the  neutral  axis  for  thg 
plating.   (Inches  Feet  ) 


Calling  Sequence 

Call  PMINSB  (TEL,  BLM)K,  AREAPT,  XLOMIN,  XIEER) 


Samol e  Inout/Outnut 
Input: 
Output: 


(Computer  test  run) 


TEH 

BLMOM 

AR^AP" 


0.625    inches 


6083.683+ 
4-72.306+ 

XMOMIIT  15318+.375 

XHBR  10571^.562+ 


inches! 


feec 


hoc 


incn.es 

inches2  feet! 
inches^  feet' 


Fundamental  Equations 
Hone . 


Samnle  Calculation 


Hone. 


(Refer  to  subroutine  listing  and  flow 
chart,  following  pages) 
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G  LEVEL  0,  MOO  0 


P MINER 


DATE  =  67132 


19/43/58 


17 


18 


19 


20 


21 


22 


23 


IF 

IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


SUB ROUT I 

if   mm 
mm 

(  (THl 
(  (  TH1 
(  (THl 
(  (THl 
(  (THl 
(  (THl 
(  (  THl 
(  (  THl 
(  (THl 
(  (THl 
BL.MQM   = 
AREAPT  = 
X MOM IN  = 
XINER   = 
RETURN 
BLMOM   = 
AREAPT  = 
X MOM  IN  = 
XINER   = 
RETURN 
3LM0M  = 
AREAPT  = 
XMOMIN  = 
XINER   = 
RETURN 
8LM0M   = 
AREAPT  = 
XMOMIN  = 
XINER  = 
RETURN 
BLMOM   = 
AREAPT  = 
XMOMIN  = 
XINER  = 
RETURN 
BLMOM   = 
AREAPT  = 
XMOMIN  = 
XINER   = 
RETURN 
BLMOM   = 
AREAPT  = 
XMOMIN  = 
XINER   = 
RETURN 


^E  PMINER  (THltBLMOM, AREAPT, XMGM IN» XINER) 


.EQ. 

.  E  }   . 

.EQ. 

.  EQ. 

•  E  Q . 

•  EQ. 
.EQ. 
.EQ. 
.EQ. 
.EQ. 
.EQ. 

•  EQ. 


25000) 
0.28125) 

-  0.31250) 

-  0.3*375) 

-  0.37500) 

-  0.43750) 

-  0 . 500Gu) 

-  0.62500) 

-  0.75000) 

-  0.87500) 

-  0.93750) 

-  1.00000) 
2753.5119629 

188.9225464 
61274.3710937 
42284.8554687 

3097.7021484 
212.5376418 
68933. 5 
47570.0546875 

3441-895752 

236. 1531372 
76592. 5625 
52854.8671875 

37ci6. 0852051 
259.7683105 
04251.5625 
58139.7304687 

4130.2734375 
283.3335449 
91910.625 
63424.9726562 

4818.6132812 
330.5142578 
107228.6125 
73997.5625 

5506.96375 
377.3449707 
122547.25 
64569. 8125 


0.0) 
0.0) 
0.0) 
G.O) 
0.0) 
0.0) 
CO) 
G.O) 
0.0) 
0.0) 
0.0) 
0.0) 


uG 
GO 
GO 
GO 
CO 
Gd 
GU 
GO 
GO 
GU 
GO 


TO 
TO 
TO 
TO 
TO 
TO 
TO 
TU 
TO 
TO 
TO 
TO 


17 

L8 

19 
20 
21 
22 
25 
24 
25 
26 
27 
28 
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'  G  L  tVcL  0,  ML)  J  0 


PMINER 


DATE  =  67L32 


19/43/58 


24 


25 


26 


27 


28 


BLMOM 

AKbAPf 

X MOM IN 

XINER  = 

RETURN 

BLMOM 

AREAPT 

X MOM  IN 

X I N  E  R 

RETURN 

BLMOM 

AREAPT 

X MUM  IN 

X I N  E  R 

RETURN 

BLMOM 

AREAPT 

X MOM  IN 

XINER 

RETURN 

BLMOM 

AREAPT 

X MOM  IN 

XINER  : 

RETURN 

ENO 


=   68o3, 6835937 
4  72.3061523 
=1531^4.375 
105714,5625 

=   8260.421o75 

566.7675781 
=  183821.  125 
=126857. 125 

=   9637.1679687 
661. 2287598 
=21445b.25 

=148  000. 

=  10325.5351562 
708.45*2235 
=229777.25 
=158572.5625 

=  11013.9257812 
755.6901655 
=245096.0625 
=169143.625 
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(     ITDM    \ 


BLMOM  = 
AREAPT  : 

XMOKIN   : 
XI2ISH  = 


f     RETURN     J 


(Tabulated  values,  to  be  inserted  above) 


XXX 

HUM 

BLMOK 

0.25 

17 

2753.5+ 

0.28125 

18 

3097.7+ 

0.3125 

19 

3W1.8+ 

0.3^375 

20 

3786.0+ 

0.375 
0.4375 

21 
22 

^130.2+ 
4818.6+ 

0.5 

i 

5506. 9+ 

0.625 

6883.6+ 

0.75 

25 

8260A+ 

0.875 

26 

9637.1+ 

0.9375 

27 

10325.5+ 

1.0 

28 

HOI3.9+ 

AREAPT 
118.9+ 
212.5+ 
236.1+ 

259.7+ 

283.3+ 
330.6+ 
377.8+ 
+72.3+ 
566.7+ 
661.2+ 
708 .k+ 
155.&+ 


XMOMIN 

6127+.+ 

68933.+ 
76592.+ 

84251. + 
91910. + 
107228. + 
122547. + 
15318+.+ 
I83821. + 
214458.  + 
229777.+ 
2+5096. + 


XIIJER 

4228J+.+ 
+7570. + 
5285+.+ 
58139. + 
6342,+.+ 

73997.+ 
84569.+ 
10571+.+ 
126857. + 
148000. 
158  572.+ 
1691+3. + 


FIGURE  IX 
SUBROUTINE  PKIKER  FLOW  CIURT 
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H.   SUBORDINATE  PROGRAM  SHDATA 

1.   DESCRIPTION 

Introduction 

Program  SHDATA  generates  input  data  required  for  main 
program  RONS CORE  (after  further  manipulation  by  subroutine 
PLTGTH).  .The  midship  section  molded  form  of  DD-931,  ori- 
ginally  defined  by  a  series  of  nineteen  cubic  equations, 
is  defined  in  detail  by  a  mesh  of  one  hundred  ninety-one 
points  by  subroutine  SHDATA. 

Each  cubic  equation,  with  one  coordinate  variable 
defined  in  terms  of  the  other,  is  used  to  generate  ten 
points  on  the  surface  of  the  midship  section  shell  molded 
form.   The  final  point  defines  the  shell-plating  inter- 
section.  The  output  of  this  subroutine  is  then  used  as 
an  input  to  program  PTLGTII,  which  calculates  the  distance 
between  adjacent  points. 

Inputs 

Symbol  Meaning 

C00RD1         The  dependent  variable.   (Y  or  Z) 


Provided  by  courtesy  of  Mr.  Lee  Mount  of  J*.  J.  Henry 
Co . ,  In  c . 
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Symbol 

C00ZID2 

ilOSEG 

PTMIN 

PTiiiLX 

Ml. 

BB 

CC 

DD 


Meaning 

The  independent  variable.      (2   or 

Y) 

The  number  of  the  cubic  equation. 

(From  1  through  19) 
Minimum  value  of  the  independent 

variable.   (Feet) 
Maximum  value  of  the  independent 

variable.   (Feet) 
Fixed  quantity  in  the  cubic 

equation. 
Coefficient  of  the  first  power 

independent  variable. 
Coefficient  of  the  second  power 

independent  variable. 
Coefficient  of  the  third  power 

independent  variable. 


Calculated  Items 
Symbol 
W 

sum 

DIFF 


Meaning 

The  independent  variable.   (Feet) 

The  dependent  variable.   (Feet) 

Range  of  the  independent  variable, 
(Feet) 


Out nut 


Symbol 

EE 

FF 


Heaninp; 

Half  breadth  of  point.   (Feet) 

Height  of  point  above  base  line, 
(Feet) 


Sample  In nut /Out put    (Computer  test  run) 


Input: 


C00RD1 

C00KD2 

HOSEG 

PTMUT 

PTIIAX 

kk 

BB 

CC 

DD 


Z 

Y 

1 
0..0   Feet 
2*0   Feet 

0.0000 

0.023692 

0.0000 

0.000 5S9 57 
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Output:          Segment         Point         i  Z 

I  1  0.00  0.000000 

1  2  0.20  0:.00^-7^3 

l  3  oAo  0.009515 

1  h  0.50  0.01^;-3 

1  5  O.So  0.019255 

1  6  1.00  OF-02^232 

1  7  1.20  0.029^9 

1  8  lAO  0.03^787 

1  9  1.599999  0.0^-0322 

1  10  1.799999  O.OVoOS^f 


Fundamental  Eauations 


SUM  =  AA  +  33xW  +  CC  x  W2  +  DD  x  w3 
W  =  VY  +   STEP 
STEP  =  DIFF  /  10. 
DIFF  =  PTIIAX  -  PTIHN 


Sample  Calculation    (Refer  to  subordinate  program  listing 

and  flow  chart,  following  pages) 

DIFF  =  PTHAX  -  PTKEH 

STEP  =  2-0  /  10.. 
=  0.20 

W  =  0.20 

SUM  =  ■    O.O23692.  x  W     +     0.00058957  x  W3 
-     0.00^7^-3 


127   -r 


levc:l     2    .w. 


CO: 


I  S  J 
I  5  J 

FsFi 

IS1 


OS/3      •       FORTRAN    !1 

iPILE*    ■■  >T  I  -.  -S    -    ,\AME=       ■••lAI,vt!tPT  =  C::  ,  L  !■■         IT-- 5      , '"  J ,   '  o  -  .     £0  ,  NOL  I  ST  ,  Of 

^Oi     :         'A!     (.'■■',  I  i  .        L     .  j)_ 

•  9G2    fj        i    (lhc,    ;  ..    h        -/,:■!.,    "    ~ a179H~"s1'5me n?~"7T 277h   Pal 

.II^H_Xf     203^500  ,   ■■•    Yfj»flO±62"3H_Zfj     ~l>.*) 

^03      I!      Li     (5fv01)     C      >K     ltCOQKD2fNUSEG»PrMIN»PTMAXf  AAf  B3fCC7l)0~ 
31 FF     =    PTM4X    -    PTri  IN 


IS  . 
IS-M 


OC    16 
0  00  7 


ISN 
ISM 


0  '   )  1 
0  C  J  9 


bit1    =     DIFf     /     1     . 

VV_=_PTM_IN 

DO    90  7     I    ="T7~10  — — - 

:>  J       =    A  I    &     3B*VV    S  CC*(VV**2)     S    DD*(VV**3) 


ISM 

ISM 


IS  J 
I  SM 


00 10 

2SA- 

00  L  3 

0  0  1  <+ 


Ir     <  MOSFG    .GT  .     7  )     GO    10    90: 

EE    =    SUM 

FF     =    VV 

GO     To    yoo 


ISM 

I_SN 
ISO" 
I  SM 


0015 
0  0  1  6 

oori 

0018 


I  SM 

ISO 


G  0  L  y 
0020 


905    EE     =    VV 

_FF    =    SUM 
"97)o"~wk7TE_To7W2T"C  "'O00T7i:n0OO27^o"SuG717  FF7*F 
904     ■■••f<ITE     (7, '-'02)     0-0  ■O'l,C'^°0?,00SEG,  I  ,  FF.FE 
9 I  7     V V    =    VV    a    S IFP 


IF     (  ( N     $ E 


2     )     .EC.     0)     G'J    TO     ?17 


I  So 

I_SM 

'ISM' 


0  0  2  2 
0023 
0024' 


GO    TO    H  ^  3" 
9^7_STGP 
EN  ) 
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No 


Calculate: 
DIFF,    ST3P,   VV 


Calculate 
SUM 


Determine  Point 
Coordinates 


Yes 


C      STOP    J 


Solve  the  cubic 
equation  for  the 
value  of  the  de- 
pendent variable. 


Assign  offset  and 
height  above  base 
line  for  point. 


Continue  solving  for 
shell  structure. 


FIGURE  X 


SUBORDINATE  PROGRAK  SUDATA  FLOW  CHART 
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I.      SUBORDINATE  PROGRAM  DiCDAT 


v\ 


1 .  .  DESCRIPTION 


Introduction 


Program  DKDATA  is  designed  to  generate  a  series  of 
points  on  the  molded  deck  of  the  midship-  section  of  DD- 
931 ♦   The  half  breadths  of  the  points  are  determined  on 
the  basis  of  the  angle  of  the  sine  function  used  to  de- 
fine the  height  of  the  camber  curve.  For  the  deck  edge, 
the  sine  equals  zero,  while  the  value  is  one  at  the  center- 
line.  A  direct  correlation  between  the  angle  involved  and 
the  half  breadth  is  maintained — if  the  angle  is  forty-five 
degrees,  the  point  defined  exists  at  exactly  half  the  max- 
imum breadth  of  the  molded  deck  plating. 

One  hundred  points  are  defined,  equivalent  to  ten 
cubic  segments  with  ten  points  evaluated  on  each,  as  in 
program  3HDATA.   One  added  point  defines  the  centerline  of 
the  deck. 


Inputs 


Symbol 
C00RD1 
C00RD2 

ZIIIH 


Meaning 

The  dependent  variable.   (Z) 

The  independent  variable.   (Y) 

The  height  of  the  deck  edge  above 
the  base  line.   (Feet) 
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Symbol 


ZI 


Y2IAX 


Ilea  nin- 

The  height  of  the  dec!:  ceaterline 
above  the  base  line.   (Feet) 

The  half  breadth  of  the  deck  edge. 
(Feet) 


Calculated  Items 
Symbol 
STEP 
YSX 

FF/YBEG 
DIFF 

NOSSG 
I 

AITGLE 


Meaning 

Angular  increment  for  the  sine 

function.   (Radians) 
Increment  of  the  halfbreadth 

for  adjacent  points.   (Feet) 
Offsets  of  the  point.   (Feet) 

Height  difference  between  the 

deck  edge  and  the  deck  center- 
line.   (Feet) 

"Segment"  number — for  uniformity 
with  SHDATA  output. 

"Point"  number  within  the  segment. 

Angle  to  be  used  for  the  camber 
calculation  of  the  height  of 
the  deck.   (Radians) 


Output 


Symbol 

FF 

EE 


Meaning 


Offsets  to  the  point.   (Feet) 

Height  of  the  point  above  the 
base  line.   (Feet) 


Sample  Input/Output    (Computer  test  run) 


In out: 


C00RD1 
C00RD2 
ZMIN 

ZriAX 

YI1AX 


Z 

Y 
25.23959^ 
26. 23125+7 
22.3^3796 


Feet 
Feet 
Feet 
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Output:    Segment    Point     Y       Z 

20  1        22.3^-3796     25.  23959^ 


20  2        22.1203^:-6      25.255157 

20  3-       21.896896      25.270737 

3.0  1      -0.0003^8     26.2312^7 


Fundamental  Eouations 


STEP   =      TESTA  /  100. 

YYY  =     YKAX  /  100. 

YBEG  =    Yl-IAX,   later  =  YBEG  -  YYY 

DIFF  =     ZKAX  -  ZMIH 

ANGLE  =     ANGLE  +  STEP 

ES  =     ZIIIII  +  DIFF  x  SIN(AIiGLE) 

FF  =     YBEG 

Sample  Calculation    (Refer  to  subroutine  listing  and  fiovr 

chart,  following  pages) 

STEP  =  0.015708 

YYY  =  0.223^,796 

YBEG  =  22. 3^796 

DIFF  =  0.991653 

EE  =     25.23959^  *  0.991653  x  Sin    (0.) 

==    25.23959^ 

——————  , 

FF  =     22.3^3796 
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EVFL  02  NOV.  66 

COMPILED  OPTIONS  -  NA  --.F 


0S/36C   FORTRAN  H 


M AIN,OPT=00,L I NECNT-50, SOURCE, BCD, NOLI ST ,  DE 


ISN 

0002 

901 

ISN 

0003 

9  02 

ISN 

0004 

903 

ISN 

0005 

ISN 

0006 

ISN 

0007 

ISN 

000« 

ISN 

0009 

ISN 

0010 

ISN 

0011 

ISN 

0012 

ISN 

0013 

ISN 

0014 

ISN 

0015 

ISN 

0016 

ISN 

0017 

ISN 

0018 

ISN 

0019 

ISN 

0020 

ISN 

0022 

ISN 

0023 

910 

ISN 

0Q24 

909 

ISN 

0025 

ISN 

0026 

904 

ISN 

0027 

905 

ISN 

0023 

ISN 

0029 

907 

ISN 

0030 

ISN 

0031 

FORMAT  (2A1,3F10.6) 
FORMAT  (  1H0,A1, 15H  A 
U4H  X=  203.500000,30 
READ  (5,901)  C00RD1,  C00R02, 
THETA  =  0.5  *  3.1415927 
STEP  =  THETA  /  100. 
FF    =    0.0 

DIFF  =  ZMAX  -  ZMIN 
ANGLE  =  0.0 
YYY  =  YMAX  /  100. 
YBEG  =  YMAX 
AA  =  0.05 

00  907  J  =  1,  101 
FF  =  YBEG 
EE  =  ZMIN  £ 
NOSEG  =  AA 
K  =  AA 
AK  =  K 

1  =  lO.'o  *  (AA  L 
IF  (I  .EQ.  0)  GO 
GO  TO  909 

I  =  10 

AA  =  AA  &  0.1 

NOSEG  =  NOSEG  &  20 

WRITE  (6,902)  C00RD1,  C00R02, 

WRITE  (7,902)  C0QRD1,  C00RD2, 

YBEG  =  YBEG  -  YYY 

ANGLE  =  ANGLE  S  cTFf5 

STOP 

END 


FUNCTION  OF 
Y=,F10.6,3H  Z=, 

ZMIN  ,  ZMAX,  Y 


A1,9H  SEGMENT 
F  1 0  . 6  ) 

MAX 


, 12, 7H  PO 


DIFF  *  SIN(ANGLE) 


0.1)  -  10.0 
TO  910 


*  AK 


NOSEG, 
NOSEGt 


It 

It 


FF, 
FF, 


EE 
EE 
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NO 


(  START  J 


Calculate: 
ANGLE,  STEP, 
and  DIFF 


Calculate: 

EE,  FF,  NOSSG, 
and  I 


YES 


(    STOP  J 


Determine  the  initial 
angle  and  the  incre- 
ments of  the  angles 
and  offsets. 


Determine  the  point 
coordinates. 


FIGURE  XI 
SUBORDINATE  PROGRAM  DKDATA  FLOW  CHART 
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J.   SUBORDINATE  PROGRAM  PTLGTH 

1.   DESCRIPTION 

Introduction 

Program  PTLC-TH  uses  the  outputs  of  SHDATA  and  DKDATA 
to  calculate  the  distance  between  adjacent  points,  based 
on  the  assumption  that  the  distance  between  two  points 
can  be  closely  approximated  by  a  straight  line  segment. 
In  view  of  the  short  distances  involved,  this  results  in 
a  relatively  precise  calculation.   The  center  of  gravity 
of  the  short  segment  so  defined  is  evaluated  "oy   linear 
interpolation. 


Innuts 


Symbol 

N0SSG1 

II 

YPT1 

ZPT1 

1T0SEG2 

12 

YPT2 

ZPT2 


Meaning 

Segment  number  of  initial  point, 
Point  number  of  initial  point. 

Half  breadth  of  initial  point. 

CFeet) 
Height  of  initial  point  above 

base  line.   (Feet) 
Segment  number  of  next  point. 

Point  number  of  next  point. 

Half  breadth  of  next  point. 

(Feet) 
Height  of  next  point  above  base 

line.   (Feet) 
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Out out 


Symbol 

DIST 

ZCC-PT 


Meaning 

Distance  from  initial  to  nex 

point.   (Feet) 
Height  of  mid  point  of  DIST 

above  base  line.   (Feet) 


Sanole  In nut /Out cut 
Input: 


(Computer  test  run) 


Output: 


1T0SEG1 

II 

YPT1 

ZPT1 

N0SEG2. 

12 

YPT2 

ZPT2 

DIST 
ZCGPT 


1 

1 

0.0 

Feet 

0.0 

Feet 

1 

2 

0.200000 

Feet 

0.00^-3 

Feet 

0.200056 

Feet 

0.002371 

Feet 

Fundamental  Eauation: 


DIST  =  v/  (YPT2  -  Ti?Tl)2  +  (ZPT2  -  ZPT1)2 
ZCC-PT  =  0.5  x  (ZPT1  +  ZPT2) 


Sample  Calculation 


(Refer  to  subroutine  listing  and  flow 
chart,  following  pages) 


DIST  =  ^f   (0.20000)2  +  (o.ooJ+y^)2 
=   0.200056 

ZCGPT  =  0.5  x  (0.00^-7^-3) 
=  0.002371 
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LEV 


n  5 


.     .  . 


IS/3    • 


I   »A       H 


C  l )  IP  I  L  E  '        '  F  ;..'-,-'■..    =  I     ,      >T  =00",  L  I N'ECNT  =  5     ,  S;j  J R  (:     ,    C0 1      !L  I  S  r  , 


!  S  N 

;  v. 
i  s  M 

IS  - 


0002 
i  )  1 1  t 


901     F     :    ■.". 


[S  i 

I  SN 
ISN 
I  SN 


■   .  - 

j  U I   n 

000  / 

J 00  3 


102     \ L  A 0 

EM  -■  f 

~  zc  ; j  t 

904  RJ  •  v 
.,  [TE 
HR  I T  E 


(  ;  ,   3     i 
15,"    ' 

I 

=    0.5 

T     (  L_H  ] 
(  b  ', 
(7,9C 


X  ,  I  2 

I  t 

'    ! 

?     - 


1 
1  ) 


(  ( 


4) 
4) 


I 

:  •    5 

!  . 

1  )  ) 


1  1 
EG 

E_GJ 


,  17 
E  i 

.    Z 

,11 

lLL 

0. 


•    r 

r 

I  y 

' i  ; 

T     I 

,  Y  ' 
,YP 


LO..J 

■'  :  . 
Y^T2 
*  *  7 


1  1 

i>   ( : 


F  1 0 .  b 

I 

PT2    - 


7  j  T  1  )  *  *  ;  ) 


) 

LLiI 

30    T 


pf!7 


3INT 
M  ST, 

Jisii 
1 


!    L2i 
GPT 

ZCGPT 


M2X,F10.6)) 


ISN 
I  Si 

I  St\ 

ISO 


3  0  1 C 
0012 


If     (  ( 
N      i  E  G 


NUS.E  i2    - 
1     =NUSEG 


)) 


0  0  Li 
0  0  1  \ 


II     = 

yJTl 


12 

=    /PI  > 


ISN 
I_SN 

"ISN 
ISM 


3     i  5 

'•  i 

~0  0  1  1 

001  3 


911 


ZPT1 

;  ;   r  o 

M  "T 
IF  I T  E 


=    /.  P  T  2 
9 0  2  __ 

^        ,-> 

~        L    •  "■ 

(6,^04)         3SEG2  ,  I  2,  Y')T2,0JT2,  01  ST,Z^T2 


I   SiM 

I  SN 

001   • 

)  0  ?  ~ 

W.R'l  1  E 
STOP 

( 7,904) 

N0.SEG2,  I2,YPT2,  ^PT2,  HST,ZPT2 

ISN 

0  0  2  1 

EN  1) 

- 

T« 
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(  START  J 


NO 


Calculate: 
DI3T  and 
ZCC-PT 


r     stop     j 


Determine  the  dis- 
tance between  two 
points  and  the  height 
of  the  mid-point 
above  the  base  line. 


FIGURE  XII 
SUBORDINATE  PROGIUi:  PTLGTK  FLOW  CHART 
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K.   SUBORDINATE  PRQGRAi:  WTSMOD 


DESCRIPTION 


Introduction 

Subordinate  program  WTSMOD  calculates  the  total 
girth,  plating  weight,  moment  of  inertia,  and  location 
of  the  neutral  axis  for  the  midship  section  plating. 
The  calculation  of  the  section  modulus  Is  based  on  the 

following  equation:  [jQ 

,nn,T7    0  n        BLKCH2  -  (ARLAPT  x  XIIOMBI) 
Ja-LD±6  -     <£-0  x   BLMOM  -  A3SAPT  :•:  ZCOORD 

The  output  of  PTLGTE  is  used  as  an  input  to  WTSMOD. 
Each  small  segment  between  points  on  the  girth  is  treated 
as  a  rectangular  segment  with  a  width  equal  to  the  speci- 
fied thickness  of  the  plating.   The  component  values  used 
in  the  calculation  of  the  section  modulus  are  stored  in 
Subroutine  PMIKSR  for  eventual  use  in  Main  Program  RUH- 
SCORS. 


Inputs 


Symbol 

PTDATA(I,J,1) 
PTDATA(I,J,2) 
PTDATA(I,J,3) 


Meaning 

Half-breadth  of  point  (I, J). 

(Feet) 
Height  of  point  (I, J)  above 

base  line.   (Feet) 
Distance  from  point  (I, J)  to 

next  point.   (Feet! 
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bol 


PTDATA(I,J,lf) 


WP2RIH 


TEL 


i.eaninr; 


Height  of  midpoint  of  PTDATA 
(i,J,3)  above  base  line. 
(Feet) 

Weight  of  the  structural  ma- 
terial.  (Pounds  per  inch 
thickness  of  a  one  square 
foot  plate) 

Plating  thickness.   (Inches) 


Calculated  Items 
Symbol 
GIRTH 

AA 
BB 


Keania? 

Total  distance  between  points 
for  the  half  breadth. 
(Feet) 

Intermediate  value  used  in  cal- 
culating XMOMIN. 

Intermediate  value  used  in  cal- 
culating XMOI-HN. 


Outout 


Symbol 
WTPRFT 
GIRX2 

BLMOM 

AREAPT 
XMOMIN 

XMD1K 
XKD1D 
ZNAX 

xntsR 


MeanJ  ng 


Total  weight  of  the  plating. 

(Pounds  or  Tons  per  foot) 
Total  circumference  of  the 

midship  section  plating. 

(Feet) 
'Moment  of  the  plating  about 

the  base  line.   (In. 2  Feet) 
Cross-sectional  area  of  the 

plating.   (In.2) 
Moment  of  inertia  of  the  plating 

about  the  base  line.   (In. 

Ft.2) 
Section  modulus  at  the  keel. 

(In. 2  Feet) 
Section  modulus  at  the  deck. 

(In.2  Feet) 
Height  of  the  center  of  gravity 

of  the  plating  above  the 

base  line.   (Feet) 
Moment  of  inertia  of  the  plating 

about  ZNAX.   (In.2  Ft.2) 
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Sample  Input/Output         (.Computer  test  run) 


Input  r 


1=1  J=l 
2 


PTDATA(I,J,1)      PTDATA(I,J,2)      PTDATA(I,J,3) 


I 


Output: 


0.0 

3,0 
6.0 
9.0 
5  12.0 

PTDATA(1,1,*0 
PTDATA(l,2,if) 
PTDATA(1,3,^) 
PTDATACl,^,^) 

PTDATACl^,5*) 
WPERIN 

TBI 

WTPRFT 

GIRX2 

BLMOM 

ARE APT 

XMDMIN 

XMDELK 

XKD1D 

ZNAX 

XIN3R 


2.0 

6.0 
10.0 
l*f.O 

0.0 
HO. 8 

0.25 

H08.0 

if0.o 

HSO.O 

60.0 

5120.0' 

320.0 

1^0. k2 

8.0 

2560.0 


•  0.0 

h.O 

8.0 
12.0 
16.0 
Feet 
Feet 
Feet 
Feet 
Feet 
Pounds 
Inches 


5.0 

5.o 
5.0 
5.0 

0.0 


per  in.  per  sq 


J.  0 


Pounds  uer 
Feet 
In.z   Ft. 


*oot 


In.  2 
In.  2 

In.2 
Feet 
In. 


Ft.2 

Ft. 

Ft. 


•nu-    2 

rtli 


Fundamental  Equations 


GIRTH  =      GIRTH     +     PTDATA(I,J,3) 
V/TPRFT  -     2.0  x  GIRTH  x  WPERIN  x  THL 
GIRX2  =     2.0  x  GIRTK 

AA  =     O.O8333  x  THL  x  PTDATA(I,J,3) 

(PTDATA(I+1,1,1,)    -  PTDATA(I,jg)\: 
V,  PTDATACI,J,3)  / 


BB  =     THL2  x 


*     lhh.   x   (PTDATA(I+1,1,2)   -   PTDATA(I, J, 2) )2 

BLMOM  =     BLMOM     + 

12.   x  TEL  x  PTDATA(I,J,3)   x  PTDATA(I , J,H) 

ARBAPT  =     12.   x  GIRTH  x  THL 

XMOMITJ  =     XMDMIN     +     O.O833  x  AA  x  33     + 

12.    x  THL  x  PTDATA(I,J,3)    x  PTDATA(I , J,H)2 

IK  =     2.0     x      fBLIIOI-:2      -      AH3APT  x  Xt-XHUl) 
\      .  BLMOM.  / 


-  2A;-1  - 


XMD1D 
ZITAX  = 
XEJER 


=      2.0  x 


BLiiOi: 


.  BL1-.0M2     -     AilEAPT  x  XKQHIN 


&MOM     -      26.23125  x  AR3APT 


ArLEAPT 
XMD1K  x  ZIIAX 


Sample   Calculation 


XINER 


(Refer  to  subroutine  listing  and  flow 
chart,  following  pages) 

2 


1 


12 


x     ix20x 
4- 


kQOO 


m. 


[a  -  oy 


=-     2,560  in.2  ft.2 


NOV .  66 


-  lJ-i-2.- 

GS/360   FORTRAN  H 


COMPILER  OPTIONS  -  WME=   MAIN,  GPT=00,L  INECNT=50,  SOURCE,  BCD  .NOLIST,  DECK,  LOAD,  M 


900 
901 


907 


910 
888 


84 

85 


80  0 

8CL 
802 
803 


400 


501 


DIMEN 

PG  R  M  A 
FORMA 
DO  90 
DO  90 
READ 

1  PTDA 
CUNT  I 
I  =  3 
J  =  1 
READ 

1  PTDA 
DO  91 
DO  91 
PTDAT 
READ 
IF  (  ( 
FORMA 
FORMA 

1S»  ) 
rtRITE 
GIRTH 
DO  80 
DO  80 
GIRTH 
WTPRF 
FORMA 
FORMA 
FORMA 
GIRX2 
WRITE 
WRITE 
WTPRF 
WRITE 
WRITE 
BLMOM 
AREAP 
DO  40 
DO  40 
BLMOM 
XMOMI 
DO  50 
DO  50 
AA  = 
IF  (  ( 
BB  = 

1  (  (PT 
GO  TO 
33  = 


SI  ON 
T  (2F 

T  123 
7  I  = 
7  J  =  l 
(5r  9 
TA{  I  , 
NUE 
0 

(5,  9 

TA(  I  , 
0  J  = 
0  K  = 
Ail, 
(  5,90 
WPERI 
T  {  '  1 
T  (  ' 

(6, 

=  0. 

0  I  = 

0  J  = 

=  GI 

=  2 

(  '0 

(  ■ 

« ■  b 

=  2. 

(6,6 

(6,8 

T  =  * 

(6, 

(6,8 

=  0. 

T  =  G 

C  I  = 

0  J  = 

=  BL 

N  =  0 

0  I  = 

0  J  = 

0.083 

J  -  1 

(THl* 

DATA( 

60  0 

(  THl* 


PTDAT A  (30,10,^) 
20.7) 

X, 4( 2X,F10.6) ) 

1,  29 
,  10 

01)  PTDATA  (  I  , J,  1)  ,PTDATA(  I,  J, 2)  ,PTDATA(  I , J, 
J, 4) 


3), 


01)  PTDATA(I,J,1),PTDATA(I,J,2),PTDATA(I,J,3), 
J, 4) 
2, 
1  , 
J,K) 
0  )  W 
N 
PL 
WE 


10 
4 

=  0.0 
PERIN,  TH1 

100. )  .GT.  0)  GO  TO  999 
ATING  THICKNESS  =',F10.6,' 
IGHT  =',F10.6,'  POUMDS  PER 


INCHES' ) 
SQ.  FT.     PER 


INCH  THICKNES 


84) 

0 
It 
If 

RTH 

•  0  * 
PL  A 
PL  A 
TOT 

0  * 

03) 

01) 

tprf 

302) 
5)  W 
0 
IRTH 

If 

U 
MOM 
.0 

If 

If 
333 
0)  . 


THl 


30 
10 

'a 

G 
TI 
TI 

AL 
GI 
GI 

WT 
T 

W 
PE 


T  A  (  I  ,  J  ,  3  ) 
*  W PER IN  *  THl 

EIGHT  =  •  ,E20.7,* 
EIGHT  =■ ,c20.7, • 


POUNDS  PER  F00T, I 
TONS  PER  FOOT' I 


PTDA 
IRTH 

NG  Wl 
NG  Wl 

MIDSHIP  SECTION  GIRTH  =',F15.7,'  FEET') 
RTH 
RX2 
PRFT 
/  2240. 
TPRFf 
RIN 


IU 


*  THl  *  12.0 
29 
10 
£  12.  *  THl  *  PTDATA( I ,J,3)  *  PTDATA  (I,J,4) 


29 

10 

*  THl  *  PTDATA  (I,  J,  3) 

NE.  0)  GO  TO  501 

(  (  PTDATA  (  I  &  1  ,  1  ,  1)_-PTDATA(  I  ,  J,  I  )  ) /PTDATA  ( 

1,2)  -  PTDATA ( I, J, 2) )**2)  *  14'+. 


I , J, 3) )**2  a 
*2)*((PTDATA(I,J&1,1)    PTDATA  (  I  ,  J , 1 )  ) /PTDATA  (  I ,  J , 3 )  ) * *2 


-  tt-i  - 


60  0 
500 


304 
305 
307 


3  06 
401 
402 
40  3 


999 


1  £  144 
XMOM'IN 

I  (  I  ,  ,1  ,  4 
CONTIN 
XMD1K 
XMDLD 

1  *  ARE 
FORMAT 
FORMAT 
FORMAT 
ZNAX  = 
XINER 
WRITE 
FORMAT 
FORMAT 
FORMAT 
FORMAT 
rtRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
GO  TO 
STOP 
END 


UE 


*  (PTD\TA( I,J&1,2)  -  PTDATAl I,J,2) >**2 

0.08333*AA*3B  fi  XMQMIN  d  12.*  PT  DATM  I  f"j ',  '3T*TH1*PTDATA 
*2 


AP 

( 
( 
( 
B 

(6 
( 
( 
( 

( 
(6 
(6 
(6 
(6 
(6 
(6 
88 


2,0 
(  (  ( 
T)  ) 
•0 
•0 
•0 
LMO 
X^O 
3  0 
0 
0 
0 
0 

4C 

40 

40 

30 

3 

3 

8 


BLM 

SE 
SE 
MO 

A    / 

IK 

7) 
NE 
BL 

ARE 

XMO 

1  ) 

2) 

3) 

6) 

04) 

05) 


I  ( 
QM 
2. 
CT 
CT 
ME 
A 

Of 

XI 
UT 
Mu 
AP 
■"11 
BL 
AR 

x  :■  i 

Zi\l 
X 

X 


(  blmo 

**2) 

0 

ION  M 

ION  M 

NT  OF 

REAPT. 

ZNAX 

NER 

RAL  A 

M  =  »  , 

T  ='  , 

N  =% 

MOM 

EAPT 

OMIN 

AX 

MO  IK 

MOID 


1**2)  -  (AREAPT  *  XMOMIN))  /  BLMOM) 

-  (AREAPT'*XM6MIN)'i  /(3LM0M  -  25.2  31247 

0DU\US--1<EEL~^»VF20a7T*  INCHFS**2   FEET') 

ODULUS  —  DECK  =_' »JF 2 O.J ♦  *   I\CHES**2  FEET1) 

INERTIA  IS',F20.7,«  INCHES** 2  'FEEt**2«) 


FEET 
2'  ) 


<IS  IS' ,F20.7, ' 
F20.7,'  FT  IN* 
F2C.7,»  IN** 2* ) 
F20.7,'  FT** 2   IN*4 


ABOVE  BASE  L  INF1  ) 


2'  ) 


-  2M-  - 


Calculate: 

GIRTH,   V/TPRFT, 
and   GIRX2 


Calculate: 

BLMOM,  AA,  B3, 
and  XMOMIN 


no 


YES 


Calculate: 

XKD1K,  XMD1D, 
ZHAX,  and  XI1IER 


(       STOP  J 


Determine  the  plating  area 
and  midship  section 
girth. 


Determine  the  required 
values  to  permit  the 
solution  of  the  eaua- 
tion  for  XI1TER. 


Determine  the  net  midship 
section  characteristics. 


FIGURE  XIII 
SUBORDINATE  PROGRAM  WTSKOD  FLOW  CHART 
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L.   SUBORDINATE  PROGRAM  TSHAPB 

1.   DESCRIPTION 

Introduction 

Subordinate  program  TSHAPE  calculates  the  structural 
characteristics  of  wide  flange  sections  cut  to  a  T-section, 
For  the  purposes  of  calculating  the  maximum  and  minimum 
moments  of  inertia  and  the  cross-sectional  area,  it  is 
assumed  that  the  flange  is  cut  off  at  a  distance  0.125 
inches  from  the  web. 


Inputs 


Symbol 
SKAXI(I) 

SCENIC  I) 

SAREA(I) 

SFLGW(I) 
SFLG-THCI) 

SDEPTH(I) 
SWEBTH(I) 
SC03T(I) 


Meaning 

Maximum  moment  of  inertia  of  the 
original  member,  about  its 
neutral  axis.   (In.  ) 

Minimum  moment  of  inertia  of  the 
■  original  member,  about  its 
neutral  axis.   (In.  ) 

Cross-sectional  area  of„the  ori- 
ginal member.   (In."") 

Flange  width.   (Inches) 

Flange  thickness.   (Inches) 

Web  depth.   (Inches) 

Web  thickness..   (Inches) 

Acquisition  cost*   (Dollars/Foot 
length) 


Calculated  Items 


-  Ik6   - 


Symbol 


Ileaninr: 


5M 

SA 

SI 

SKAXI(I) 

siniii  (i) 

SAHEA(I) 

SFLGWCD 

SFLGTH(I) 

SDEPTH(I) 

SWEBTH(I) 

SCOSTCI) 

VCGCD 

Moment  of  the  cut  member  about 
the  cut  flange.   (In. 3) 

Cross-sectional  area  of  the  cut 

member .   ( In .  ) 
Moment  of  inertia  of  the  cut 

member  about  the  cut  flange. 

(In.*) 

Maximum  moment  of  inertia  of  the 

cut  member,,  about  its  neutral 

axis.   (In.w 
Minimum  moment  of  inertia  of  the 

cut  member, ^about  its  neutral 

axis.   (In.-1") 
Cross-sectional  area  of  the  cut 

member.   (In.  ) 
Flange  width.   (Inches) 

Flange  thickness.   (Inches) 

Web  depth.   Cinches) 

Web  thickness.   (Inches) 

Acquisition  cost.   (Dollars/ 

Foot  length) 
Distance  of  the  neutral  axis 

from  the  cut  flange.   (Inches) 


Sample  In nut/Cut out    (Computer  test  run) 


Input: 

SIIAXI(l) 

21.70 

In.  5 
In. 

SMINI(l) 

2.89 

SABE&Cl) 

3.53 

SFLGW(l) 

J+.00 

In. 

SFLGTE(l) 

0.279 

In. 

SDSPTII(l) 

6*00 

In. 

SWEBTH(l) 

0.23 

In. 

SCOST(l) 

2.00 

Dollars/Foot 

Output: 

SM&XIC1) 

SKINI(l) 

10.56 
l.*+0 

In^ 

SAREJl(l) 

2.55 

In.2 

sflgw(i) 

Woo 

In. 

SFLGTH(l) 

0.279 

In. 

SDEPTIi(l) 

6.00 

In. 

SWBBTHCl) 

0.23 

In. 

SCOST(l) 

2.00 

Dollars/Foot 

VCG(l) 

lf.10 

In. 

-  1*7  - 


Fundamental  Ecma tions 


VCG(I)   = 


0.5  x  SDEPTH(I)    x  SAREA(I)      - 
0.5  x  SFLGTII(I)2  x 

(S?LGV/(I)    -    .25  -   SWEBTHCI)) 
SAREACI )      -      SFLGTH(I)   x 

(SFLGWCD    -    .25  -   SWEBTH(D) 


SM  =     0.5  x  SD3PTH(I)    x  SAREA(I)      - 

0.5  x   SFLGTH(I)2  x    (3FLGv/(I)    -    .25  -    SWEBTH(D) 

SA  =     SAREA(I)      -      SFLGTH(I)   x   (SFLGW(I)   -    .25  -   SWEBTH(I)) 

SI   =     SMAXI(I)      +     SAREACI)   x   (0.5  x  SDEPTH(I)  )2     - 

O.O833  x   (SFLGV/CI)   -    .25  -   SWSBTH(I))    x_ SFLGTH(I)3 
-      (SARSA(I)   -   3A)    x    (0.5  X  3FLGTH(I))2 

SKAXI(I)    =     VGG(I)      x      ((SA  x  SI)    -   S1I2) 

.     -  SM 

SMINI(I)   =     SMINI(I)     -     0.1667  x  SFLGTH(I)   ::   (0.5  x 

(SFLGVJ(I)    -    .25  -    Sv,nJ]3TH(I)))3      _ 
(SARSA(I)   -   SA)   x   (0.125     +     0.5  x  SWEBTH(I) 
+     0.25  x   (SFLGtf(I)    -    .25  -   SWBBTH(I)))2. 

SARSA(I)    =     SARSA(I )      -      SFLGTE(I)    x 

(SFLGW(I)   -    .25  -   SWKBTH(I)) 

Sample   Calculation  (Refer   to   subordinate  program  listing 

and  flow  chart,   following  pages; 

VGG(l)    =     °-5  S  6-    ;  3.53     -     0.?  x   ;2792  x  3- 52 
VULlU;  3.53     -     0.279  x  3.52 

'=      JKlO 

.     SMAXI(l)    =     21.70     -     0.1667  x  1.76  x  0.2793     = 

(0.279  x  3-52)  x  (3.0  -  0.1395)2 
=     10.56 

SKINICI)   =     2.89     -     0.1667  x  0.279  X  1.763     - 

(0.279  x  3.52)   x  1.1252 
=     1.^0 


-  ihS 


31    VjV'     b3  OS/  i6Q       FORTRAN    H 

U:":PILc^    ";,r!   ]  "    ~        '^e=  [N,OPT=OC,LI  ^EC  iT  =  50,S  IURCeTbCD  ,  NOL  I  S  tTdECkTlD  Ml 

0002  31  MENS  10       SMAX I (9)  fSMI  il  (  9  ) ,  SAR£A(  9  )  ,  SFLGWI ^9)TsFL~GTH( 9)TsDEPtT(9) 
1    S-.c  Uh(  Z-V-rVCOiV)  rSCQSK  9)- 

0003  40  0     FOR  -UT     (8F10.5) 

4004       -404  FORMAT  UHW^X-^MAX.  TNE-R-T  I  A  •  , -3-X  ,  • i I N.  [  nfrt  i _a  .  ,  7  X  ,  •  A*  EA  •  f  7  X, 

I  •  FLANGfc  WIDTHS  4X, • THICKNESS ' ,6X ,» WEB  DEPTH'  ,  6X,  *THI  CKNESS'  , 
Z  ....9.x  t  'COST'  ) 

0005  402  FORMAT  (1a,2(3Xt«     in***    »),4X,'SQ.  INCHES' , 7X, • INCHES' , 

1  Z-l   ?X  r  '  INCHED1  )  ,  7X, .'DOLLARS/FT.,  •  } 

0006  ,vR  ITE  (  o,tC  1  ) 

£00  7-   .    *kITd  <-6-,-4Q2)    ^ ! 

0  03  8  DO  403  1=1,9 

m^  '  ^E/U'  (^r40D  -SWAXI  (  I  WSMI^H  I)  ^SARE-AU  WSF|_Gw(  IUSFL3TH{  I)  ,SDEPTH 

L  (  I  ) rSWEBTHl  I )  , SCOST{  I  ) 

0-C10-  .-.  .  403  CONTINUE 

00  11        404  FGRMA1  ( 1H0 , 4X , F 10 . 5, 7( 5X, FIO. 5 ) ) 

0ai2  .  0 J  . 4 0 5  ..  I  =  1  t'j  

0013  WRITE  (6,404)  SMAX  I  (  I  )  ,  SMINI  ( I  )  ,'SARE  A(  I }  ,  SFLGW(  I )  ,  SFLGTHC I  )  , 
-  L  SaEPXrU  I)  ,S».EiiIH(  I  )  ,SCOST(  I  ) 

0014  405    CUN1  INUE 

0015. .__.       Qrj    hZ&    j     =    L  f  j ; 

0016  VCG(I)     =    ((0.5    *    SGEPTH(I)    *    SAREAII))     -    ( 0.5*  *  ~( SFLGTHC  I )  **2)    * 

LLSFXGW-U  )-0.2  3-SWEi}Trl(  I)  W  )/(SA;<tA(  I)-(  I SFLGW  t  I)  -0  .2  5-SWE3  T  H  (  1)1* 

2    SFLGTH{ 1)1) 

-°-0i7  -  SM~=~S-AR-EA^  I  )-(u.5*SDEPTR(  I  )  )  -0.5* (  SFLGTH  (  t-M=.^24-*4-SF-L&W4  I) -0.2  5- 

1    SWE3TH.I  I)  ) 
-00-L8--  -  S*.  =-  -SAREAU  ).    -(SFLGw(I)    -    0.25    -~- S-WEaTHf  I  >)  *SFL  GT-H  (  I  J. 

0019  SI     =    SMAXIU)     £    SAREA(I}*(0.5*SDEPTHU)  )**2    -    0. 08333*( SFL3W( I )     - 

1  0.25    .-     S.WF_.->TH(  [  )  ).*  (  SFL-GIH<  I  }  *  *  3  )  -  <  SAREA(  I)-SA)*(0.^     *    SFLGTH(I)) 

2  **2 

002G ^.'UXLIIl    =    VCG(  I  )  ..-* .  U-ISA    *  -SI  1  .-    CSM**2))     /    SM    ) 

0021  SMINIU)     =    SMINIU)    -    0.  16667*SFLGTH(  I  )     *     (0.5    *     (SFLGrfU)     -    0*25- 

1  SwFBTJ-K  I)  n--=3.  -.  -ISAREAd  )    -    SA )     *     (0.125f.    0.-5*SWE3TH (  I  )     L    0.25    i 

2  (SFLGW(I)    -    0.25    -    S WEBTH ( I ) ) ) **2 

0022  -SAREA<  U     =    SaREA(I)     -.   ISFLG.JlI)    -    0.25    -S.JE3  Td  (  I  ))     *    SFLGTHU) 

0023  406     CONTINUE 

-0024     WR-T-TE-  (6,-401) 

002  5  WRITE  (6,402) 

.£02-6—      -  411  .J=ORMAX  {   L5X,  '_ ..   SHAPE.~VCG.-IS-  '%F.lO+7f  .1.  -INCHES  FROM  EDGF  OF  CUT  FLA. 

1GE'  ) 
-0X2  7 QU  40/  .1=1  ,.9    . 

0028  rfRITE     (6,404)     SMAX I ( I ) , SMI NI ( I ) , S AREA( I ) , SFLGW ( I ) , SFLGTH( I ) , 
--   1-    SDtPTHt  I  )  ^SWEBJ-HUJ  ,SCOST(  I  )        

0029  WRITE     (6,411)     VCG(  I  ) 

-0030  407    CUf4-II.MUE       • 

0031                               STOP 
-0-0.32  _      Eua , 


-  H+9  - 


NO 


Calculate: 
VCG(I),  SK, 
SA,  and  31 


Calculate: 

SMAXI(I), 
SMIKI(I),SAREA(I) 


YES 


f         STOP  J 


Deteraine  the  cut  shape 
VCG  and  preliminary 
values  for  computing 
SMAXI(I). 


Determine  the  net  cut 
section  area  and  mo- 
ments of  inertia. 


FIGURE  XIV 
SUBORDINATE  PROGRAM  TSHAPE  FLOW  CHART 
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M.   SUBORDINATE  SUBROUTINE  COSTKL 

1.   DESCRIPTION 

Introduction 

Subordinate  subroutine  COSTKL  is  used  to  generate  the 
total  cost  per  foot  length  of  the  keel  structure.  The 
methodology  and  values  used  are  explained  at  length  in  the 
description  of  main  program  COSTDATA. 


Inputs 


Symbol 
CKLGTL 

CHC1-1NH 
FKTHCK 


Meaning 


Acquisition  cost  of  the  keel  l^r- 
gitudinal.   ( Dollar s/Fooc) 

The  cost  of  one  man- hour  of  work. 
(Dollars) 

Thickness  of  the  flanges  of  the 
keel  longitudinal.   (Inches) 


Calculated  items 


Symbol 


CCUTF 
CW2LD 


Meaning 


Cost  of  cutting  the  keel  flanges 

(Dollars/Foot) 
Cost  of  welding  the  keel. 

(Dollars/Foot) 


Output 


Symbol 


CrSSL 


Meaning 

Total  cost  of  the  keel  structure. 
(Dollars/Foot) 


-  151  - 

Sample  Input/Out  "out    (Computer  test  run) 
Input : 


CKLGTL 

9.00 

Dollars/Foot 

CHGMNH 

7.50 

Dollars/Hour 

FKTHCK 

0.1+68 

Inches 

Output:   CKEEL      27.56      Dollars/Foot 

Fundamental  Equations 

CCTJTF  =  0,2  x  CHGMNH 
CW3LD  =  2.27^8  x  CHGMNH 

Sample  Calculation    (Refer  to  program  listing  and  flow 

chart,  following  pages) 

CCTJTF  =  1.50 

CWELD  =  17.06 

CKEEL  =  27.56 


-  il2  - 


777  FORMAT     L2E2.CU.6i 

READ  (5,7  77',  CKLGTL*  FKTHCK*  CHGMNH 

CALL  COSTKL  (CKLGTL»  FKTHCK»  CHGMNH*  CKEEL) 

778  FORMAT  («1     ACQUISITION  COST  =  ',  F10.6) 

779  FORMAT  («Q   CHARGE  PER  MANHOUR_=JLl_  F10.6 ) 

780  FORMAT  ('0      TOTAL  KEEL  COST  =»»F10.6) 
WRITE  ( 6  »  778)  CKLGTL 


C 

c 


c 
c 


WRITE  (5,779)  CHGMNH 

WRITE  (6*780)  CKEEL 
STOP 

^END 


SUBROUTINE  COSTKL  ( CKLGTL »FKTHCK *CHGMNH , CKEEL) 


CALCULATE  THE  TOTAL  COST  CONTRIBUTION  OF  THE  KEEL  STRUCTURE. 


FIRST*  CALCULATE  THE  COST  OF  CUTTING  THE  FLANGES. 
CCUT F~=  0.2  *  CHGMNH 


CALCULATE  THE  COST  OF  WELDING  THE  SHAPE  TO  THE  PLATING. 


C 


c 


/* 


CWELD  =  2.2748  *  CHGMNH 


THE  MAN  HOUR  CHARGES  ALLOW  FOR  MAKE  READY  AND  PUT  AWAY,  THE  WELDING 

TTSFL Fi  T H E ..CO M T. I NtJOU S  JOB  ALLOWANCE,  WIRE  BRUSHING,  ARC  AIR,  DYE 

PENETRANT,  AMD  STRIP  HEATER. 


CALCULATE  THE  TOTAL  COST — ACQUISITION,  PREPARATION,  AND  INSTALLATION. 


CKEEL  =  CKLGTL  +  CCUTF  +  CWELD 

RETURN : 

END 


//G.SYSIN  DD 
9.  00 


0.775 


7.50 
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(    STABT j 


Calculate: 

CCUTF,    CV/ELD, 
and  CTOTAL 


f    RETURN   J 


Determine  the  cost  of 
the  keel  member,  per 
foot  length. 


FIGUR3  XV 
SUBORDINATE  SUBROUTINE  COSTKL  FLOV/  CHART 
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